Repository : ssh://darcs.haskell.org//srv/darcs/packages/base On branch : master
http://hackage.haskell.org/trac/ghc/changeset/a9c54c2ed3400fadfa7af00c71a2a4b8c4d12404 >--------------------------------------------------------------- commit a9c54c2ed3400fadfa7af00c71a2a4b8c4d12404 Author: Ian Lynagh <[email protected]> Date: Sat Jul 23 13:34:17 2011 +0100 Simplify int2Word# . integerToInt -> integerToWord >--------------------------------------------------------------- GHC/Float.lhs | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/GHC/Float.lhs b/GHC/Float.lhs index 2f6e489..5100a88 100644 --- a/GHC/Float.lhs +++ b/GHC/Float.lhs @@ -356,7 +356,7 @@ instance Real Double where (# m, e# #) | e# >=# 0# -> shiftLInteger m e# :% 1 - | (int2Word# (integerToInt m) `and#` 1##) `eqWord#` 0## -> + | (integerToWord m `and#` 1##) `eqWord#` 0## -> case elimZerosInteger m (negateInt# e#) of (# n, d# #) -> n :% shiftLInteger 1 d# | otherwise -> _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
