@@ -3413,7 +3413,7 @@ exportUnusedTests = testGroup "export unused actions"
3413
3413
, " module A (pattern Foo) where"
3414
3414
, " pattern Foo a <- (a, _)"
3415
3415
]
3416
- , testSession " unused pattern synonym symbol " $ template
3416
+ , testSession " unused pattern synonym operator " $ template
3417
3417
[ " {-# OPTIONS_GHC -Wunused-top-binds #-}"
3418
3418
, " {-# LANGUAGE PatternSynonyms #-}"
3419
3419
, " module A () where"
@@ -3472,19 +3472,6 @@ exportUnusedTests = testGroup "export unused actions"
3472
3472
, " module A (Foo) where"
3473
3473
, " type family Foo p"
3474
3474
]
3475
- , testSession " unused type family symbol" $ template
3476
- [ " {-# OPTIONS_GHC -Wunused-top-binds #-}"
3477
- , " {-# LANGUAGE TypeFamilies #-}"
3478
- , " module A () where"
3479
- , " type family p &&& q"
3480
- ]
3481
- (R 3 0 3 10 )
3482
- " Export ‘&&&’"
3483
- [ " {-# OPTIONS_GHC -Wunused-top-binds #-}"
3484
- , " {-# LANGUAGE TypeFamilies #-}"
3485
- , " module A (type (&&&)) where"
3486
- , " type family p &&& q"
3487
- ]
3488
3475
, testSession " unused typeclass" $ template
3489
3476
[ " {-# OPTIONS_GHC -Wunused-top-binds #-}"
3490
3477
, " module A () where"
@@ -3496,17 +3483,6 @@ exportUnusedTests = testGroup "export unused actions"
3496
3483
, " module A (Foo(..)) where"
3497
3484
, " class Foo a"
3498
3485
]
3499
- , testSession " unused typeclass symbol" $ template
3500
- [ " {-# OPTIONS_GHC -Wunused-top-binds #-}"
3501
- , " module A () where"
3502
- , " class p &&& q"
3503
- ]
3504
- (R 2 0 2 10 )
3505
- " Export ‘&&&’"
3506
- [ " {-# OPTIONS_GHC -Wunused-top-binds #-}"
3507
- , " module A (type (&&&)(..)) where"
3508
- , " class p &&& q"
3509
- ]
3510
3486
, testSession " infix" $ template
3511
3487
[ " {-# OPTIONS_GHC -Wunused-top-binds #-}"
3512
3488
, " module A () where"
0 commit comments