[commit: ghc] master: testsuite: Remove uniques from T15243's stderr output (93220d4)

git at git.haskell.org git at git.haskell.org
Mon Jun 11 02:28:10 UTC 2018


Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/93220d46fceabf3afeae36f1fda94e1698c3639a/ghc

>---------------------------------------------------------------

commit 93220d46fceabf3afeae36f1fda94e1698c3639a
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Sun Jun 10 22:26:13 2018 -0400

    testsuite: Remove uniques from T15243's stderr output


>---------------------------------------------------------------

93220d46fceabf3afeae36f1fda94e1698c3639a
 testsuite/tests/th/T15243.stderr | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/testsuite/tests/th/T15243.stderr b/testsuite/tests/th/T15243.stderr
index 26082a1..4e50186 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  '(:) =  '(:)



More information about the ghc-commits mailing list