From: simonmar <unknown>
Date: Tue, 31 Jul 2001 12:58:00 +0000 (+0000)
Subject: [project @ 2001-07-31 12:58:00 by simonmar]
X-Git-Tag: nhc98-1-18-release~1205
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=80705c37e0e7fb9484bb9289eabb533976719b42;p=haskell-directory.git

[project @ 2001-07-31 12:58:00 by simonmar]
merge ghc/lib/std/PrelInt.lhs rev. 1.16-1.18
---

diff --git a/GHC/Int.lhs b/GHC/Int.lhs
index c091d67..54e6a5d 100644
--- a/GHC/Int.lhs
+++ b/GHC/Int.lhs
@@ -574,7 +574,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#)
   #-}