[commit: testsuite] master: Improved desugaring in TH for Rules (2d08853)

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 <[email protected]>
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 #-}