Repository : ssh://darcs.haskell.org//srv/darcs/packages/base On branch : master
http://hackage.haskell.org/trac/ghc/changeset/e3bf797ab6f72b825c6b09a2d29fcf51134486d6 >--------------------------------------------------------------- commit e3bf797ab6f72b825c6b09a2d29fcf51134486d6 Author: Daniel Fischer <[email protected]> Date: Tue Oct 4 18:14:55 2011 +0200 Align arrows >--------------------------------------------------------------- GHC/Float.lhs | 6 +++--- 1 files changed, 3 insertions(+), 3 deletions(-) diff --git a/GHC/Float.lhs b/GHC/Float.lhs index 6e193ab..542dd9c 100644 --- a/GHC/Float.lhs +++ b/GHC/Float.lhs @@ -380,12 +380,12 @@ instance Real Double where toRational (D# x#) = case decodeDoubleInteger x# of (# m, e# #) - | e# >=# 0# -> + | e# >=# 0# -> shiftLInteger m e# :% 1 - | (integerToWord m `and#` 1##) `eqWord#` 0## -> + | (integerToWord m `and#` 1##) `eqWord#` 0## -> case elimZerosInteger m (negateInt# e#) of (# n, d# #) -> n :% shiftLInteger 1 d# - | otherwise -> + | otherwise -> m :% shiftLInteger 1 (negateInt# e#) instance Fractional Double where _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
