Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/f9339c935473dd6833764525ca9e822022906d50 >--------------------------------------------------------------- commit f9339c935473dd6833764525ca9e822022906d50 Author: Simon Peyton Jones <[email protected]> Date: Fri Aug 5 15:33:21 2011 +0100 Accept error message changes When printing TH code we see the (nicely numbered) uniques on fresh names. A consequence of the fix to #5379 >--------------------------------------------------------------- tests/th/T3572.stdout | 2 +- tests/th/T3920.stdout | 2 +- tests/th/T5037.stderr | 6 +++--- tests/th/TH_ppr1.stdout | 4 ++-- tests/th/TH_repGuard.stderr | 14 +++++++------- tests/th/TH_viewPatPrint.stdout | 4 ++-- 6 files changed, 16 insertions(+), 16 deletions(-) diff --git a/tests/th/T3572.stdout b/tests/th/T3572.stdout index 8dd47a4..9df7a44 100644 --- a/tests/th/T3572.stdout +++ b/tests/th/T3572.stdout @@ -1 +1 @@ -data Void +data Void_0 diff --git a/tests/th/T3920.stdout b/tests/th/T3920.stdout index 224efdf..ddc9748 100644 --- a/tests/th/T3920.stdout +++ b/tests/th/T3920.stdout @@ -1,2 +1,2 @@ -type family T :: (* -> * -> * -> *) -> (* -> *) -> * +type family T_0 :: (* -> * -> * -> *) -> (* -> *) -> * type family Main.S :: (* -> * -> * -> *) -> (* -> *) -> * diff --git a/tests/th/T5037.stderr b/tests/th/T5037.stderr index 987d7fd..391368c 100644 --- a/tests/th/T5037.stderr +++ b/tests/th/T5037.stderr @@ -1,3 +1,3 @@ -f :: Data.Maybe.Maybe GHC.Types.Int -> GHC.Types.Int -f (Data.Maybe.Nothing) = 3 -f (Data.Maybe.Just x_0) = x +f_0 :: Data.Maybe.Maybe GHC.Types.Int -> GHC.Types.Int +f_0 (Data.Maybe.Nothing) = 3 +f_0 (Data.Maybe.Just x_1) = x diff --git a/tests/th/TH_ppr1.stdout b/tests/th/TH_ppr1.stdout index 291d0bf..e969c17 100644 --- a/tests/th/TH_ppr1.stdout +++ b/tests/th/TH_ppr1.stdout @@ -6,8 +6,8 @@ Main.u1 Main..+. Main.u2 Main.u1 GHC.Types.: Main.u2 \((GHC.Types.:) x_0 xs_1) -> x_0 \(x_0 GHC.Types.: xs_1) -> x_0 -class Foo a_0 b_1 - where foo :: a_0 -> b_1 +class Foo_0 a_1 b_2 + where foo_3 :: a_1 -> b_2 \x_0 -> (x_0, 1 `x_0` 2) \(+_0) -> ((+_0), 1 +_0 2) (Main.f, 1 `Main.f` 2) diff --git a/tests/th/TH_repGuard.stderr b/tests/th/TH_repGuard.stderr index 896793a..c0a4dd7 100644 --- a/tests/th/TH_repGuard.stderr +++ b/tests/th/TH_repGuard.stderr @@ -1,7 +1,7 @@ -foo :: GHC.Types.Int -> GHC.Types.Int -foo x_0 | x_0 GHC.Classes.== 5 = 6 -foo x_1 = 7 -bar :: Data.Maybe.Maybe GHC.Types.Int -> GHC.Types.Int -bar x_0 | Data.Maybe.Just y_1 <- x_0 - = y_1 -bar _ = 9 +foo_0 :: GHC.Types.Int -> GHC.Types.Int +foo_0 x_1 | x_1 GHC.Classes.== 5 = 6 +foo_0 x_2 = 7 +bar_0 :: Data.Maybe.Maybe GHC.Types.Int -> GHC.Types.Int +bar_0 x_1 | Data.Maybe.Just y_2 <- x_1 + = y_2 +bar_0 _ = 9 diff --git a/tests/th/TH_viewPatPrint.stdout b/tests/th/TH_viewPatPrint.stdout index f520b23..a995dae 100644 --- a/tests/th/TH_viewPatPrint.stdout +++ b/tests/th/TH_viewPatPrint.stdout @@ -1,2 +1,2 @@ -ViewP (VarE GHC.Base.id) (VarP x) -(GHC.Base.id -> x) +ViewP (VarE GHC.Base.id) (VarP x_0) +(GHC.Base.id -> x_0) _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
