[commit: base] master: Align arrows (e3bf797)

[Daniel Fischer]

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 <daniel.is.fischer at googlemail.com>
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