[commit: base] master: Simplify int2Word# . integerToInt -> integerToWord (a9c54c2)

[Ian Lynagh]

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 <igloo at earth.li>
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                                         ->