summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBen Gamari <ben@smart-cactus.org>2018-06-10 22:26:13 -0400
committerBen Gamari <ben@smart-cactus.org>2018-06-10 22:27:17 -0400
commit93220d46fceabf3afeae36f1fda94e1698c3639a (patch)
treed2160145261a33aa9ff2aad92ce859b07fa24c4e
parent96ddfa410e8b1294cf9e04cc05593fd981fa3014 (diff)
downloadhaskell-93220d46fceabf3afeae36f1fda94e1698c3639a.tar.gz
testsuite: Remove uniques from T15243's stderr output
-rw-r--r--testsuite/tests/th/T15243.stderr20
1 files changed, 10 insertions, 10 deletions
diff --git a/testsuite/tests/th/T15243.stderr b/testsuite/tests/th/T15243.stderr
index 26082a1160..4e50186c1f 100644
--- a/testsuite/tests/th/T15243.stderr
+++ b/testsuite/tests/th/T15243.stderr
@@ -1,12 +1,12 @@
T15243.hs:(10,3)-(15,6): Splicing declarations
- [d| type family F_at5 (a_at7 :: k_at6) :: k_at6 where
- F_at5 'Unit = 'Unit
- F_at5 '(,) = '(,)
- F_at5 '[] = '[]
- F_at5 '(:) = '(:) |]
+ [d| type family F (a :: k) :: k where
+ F 'Unit = 'Unit
+ F '(,) = '(,)
+ F '[] = '[]
+ F '(:) = '(:) |]
======>
- type family F_a3ZE (a_a3ZG :: k_a3ZF) :: k_a3ZF where
- F_a3ZE 'Unit = 'Unit
- F_a3ZE '(,) = '(,)
- F_a3ZE '[] = '[]
- F_a3ZE '(:) = '(:)
+ type family F (a :: k) :: k where
+ F 'Unit = 'Unit
+ F '(,) = '(,)
+ F '[] = '[]
+ F '(:) = '(:)