projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2001-08-04 06:19:54 by ken]
[ghc-hetmet.git]
/
ghc
/
lib
/
std
/
PrelInt.lhs
diff --git
a/ghc/lib/std/PrelInt.lhs
b/ghc/lib/std/PrelInt.lhs
index
2041e57
..
bd292b0
100644
(file)
--- a/
ghc/lib/std/PrelInt.lhs
+++ b/
ghc/lib/std/PrelInt.lhs
@@
-573,7
+573,7
@@
instance Bits Int64 where
isSigned _ = True
{-# RULES
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#)
#-}
"fromIntegral/Int64->a" fromIntegral = \(I64# x#) -> fromIntegral (I# x#)
#-}