[commit: packages/integer-simple] master: Placate clang. (4ecf62f)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/integer-simple

On branch  : master
Link       : http://git.haskell.org/packages/integer-simple.git/commitdiff/4ecf62f1852636f6525cb2be6e782aceccf41547

>---------------------------------------------------------------

commit 4ecf62f1852636f6525cb2be6e782aceccf41547
Author: Austin Seipp <austin at well-typed.com>
Date:   Sat Oct 26 02:03:24 2013 -0500

    Placate clang.
    
    I forgot to push this as part of #8444.
    
    Signed-off-by: Austin Seipp <austin at well-typed.com>


>---------------------------------------------------------------

4ecf62f1852636f6525cb2be6e782aceccf41547
 GHC/Integer/Type.hs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/GHC/Integer/Type.hs b/GHC/Integer/Type.hs
index 387b8e2..144a52c 100644
--- a/GHC/Integer/Type.hs
+++ b/GHC/Integer/Type.hs
@@ -854,7 +854,7 @@ doubleFromPositive None = 0.0##
 doubleFromPositive (Some w ds)
     = case splitHalves w of
       (# h, l #) ->
-       (doubleFromPositive ds *## (2.0## **## WORD_SIZE_IN_BITS.0##))
+       (doubleFromPositive ds *## (2.0## **## WORD_SIZE_IN_BITS_FLOAT##))
        +## (int2Double# (word2Int# h) *##
               (2.0## **## int2Double# (highHalfShift ())))
        +## int2Double# (word2Int# l)
@@ -865,7 +865,7 @@ floatFromPositive None = 0.0#
 floatFromPositive (Some w ds)
     = case splitHalves w of
       (# h, l #) ->
-       (floatFromPositive ds `timesFloat#` (2.0# `powerFloat#` WORD_SIZE_IN_BITS.0#))
+       (floatFromPositive ds `timesFloat#` (2.0# `powerFloat#` WORD_SIZE_IN_BITS_FLOAT#))
        `plusFloat#` (int2Float# (word2Int# h) `timesFloat#`
              (2.0# `powerFloat#` int2Float# (highHalfShift ())))
        `plusFloat#` int2Float# (word2Int# l)