diff options
author | Simon Peyton Jones <simonpj@microsoft.com> | 2012-10-19 02:26:01 +0100 |
---|---|---|
committer | Simon Peyton Jones <simonpj@microsoft.com> | 2012-10-19 02:26:01 +0100 |
commit | 796322f5de3012f78eed0e80bcddd2cca6888ad0 (patch) | |
tree | 850428936d0bb679efe11d0d722128b4e0a01b11 /testsuite/tests/th/T7064.stdout | |
parent | 5c1d923fb161bc5603541daebe0eece38a8a3bc8 (diff) | |
download | haskell-796322f5de3012f78eed0e80bcddd2cca6888ad0.tar.gz |
Improved desugaring in TH for Rules
Diffstat (limited to 'testsuite/tests/th/T7064.stdout')
-rw-r--r-- | testsuite/tests/th/T7064.stdout | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/testsuite/tests/th/T7064.stdout b/testsuite/tests/th/T7064.stdout index 12318610e7..fa09ac3df9 100644 --- a/testsuite/tests/th/T7064.stdout +++ b/testsuite/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 #-} |