X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Flib%2Fstd%2FPrelInt.lhs;h=bd292b081661937835bde30c062dc333a20ecbb8;hb=ea138284b7343bb1810cfbd0284a608dc57f7d46;hp=2041e5756270c34e0f247c12b89d0ba31d5aa334;hpb=d9af408e5c512501cfa991f5e4a76c9154bca917;p=ghc-hetmet.git

diff --git a/ghc/lib/std/PrelInt.lhs b/ghc/lib/std/PrelInt.lhs
index 2041e57..bd292b0 100644
--- a/ghc/lib/std/PrelInt.lhs
+++ b/ghc/lib/std/PrelInt.lhs
@@ -573,7 +573,7 @@ instance Bits Int64 where
     isSigned _                 = True
 
 {-# RULES
-"fromIntegral/a->Int64" fromIntegral = \x -> case fromIntegral x of I# x# -> I64# (intToInt64# x#)
+"fromIntegral/a->Int64" fromIntegral = \x -> case fromIntegral x of I# x# -> I64# x#
 "fromIntegral/Int64->a" fromIntegral = \(I64# x#) -> fromIntegral (I# x#)
   #-}