Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/2d08853406729be6db3b3f9f0ed14c95b034fde3 >--------------------------------------------------------------- commit 2d08853406729be6db3b3f9f0ed14c95b034fde3 Author: Simon Peyton Jones <simo...@microsoft.com> Date: Fri Oct 19 02:26:01 2012 +0100 Improved desugaring in TH for Rules >--------------------------------------------------------------- tests/th/T7064.stdout | 8 ++++---- 1 files changed, 4 insertions(+), 4 deletions(-) diff --git a/tests/th/T7064.stdout b/tests/th/T7064.stdout index 1231861..fa09ac3 100644 --- a/tests/th/T7064.stdout +++ b/tests/th/T7064.stdout @@ -19,8 +19,8 @@ instance GHC.Classes.Eq a_0 => GHC.Classes.Eq (T_1 a_0) GHC.Real.fromIntegral = GHC.Base.id :: forall a_0 . a_0 -> a_0 #-} {-# RULES "rule2" [1] - forall (x_1627391611 :: a_1627391612) . GHC.Real.fromIntegral x_1627391611 - = x_1627391611 #-} + forall (x_0 :: a_1) . GHC.Real.fromIntegral x_0 + = x_0 #-} {-# RULES "rule3" [~1] - forall (x_1627391609 :: a_1627391610) . GHC.Real.fromIntegral x_1627391609 - = x_1627391609 #-} + forall (x_0 :: a_1) . GHC.Real.fromIntegral x_0 + = x_0 #-} _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc
