[commit: integer-simple] master: More build fixes (ec58db7)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/integer-simple

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/ec58db71d59a9c4e61d32c09d9cc486ac175cfde

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

commit ec58db71d59a9c4e61d32c09d9cc486ac175cfde
Author: Ian Lynagh <ian at well-typed.com>
Date:   Sun May 19 17:54:30 2013 +0100

    More build fixes

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

 GHC/Integer/Logarithms/Internals.hs |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/GHC/Integer/Logarithms/Internals.hs b/GHC/Integer/Logarithms/Internals.hs
index 529062a..3e3fbb1 100644
--- a/GHC/Integer/Logarithms/Internals.hs
+++ b/GHC/Integer/Logarithms/Internals.hs
@@ -131,9 +131,9 @@ integerLog2IsPowerOf2# _ = (# negateInt# 1#, 1# #)
 -- This function should probably be improved.
 roundingMode# :: Integer -> Int# -> Int#
 roundingMode# m h =
-    case smallInteger 1# `shiftLInteger` h of
+    case oneInteger `shiftLInteger` h of
       c -> case m `andInteger`
-                ((c `plusInteger` c) `minusInteger` smallInteger 1#) of
+                ((c `plusInteger` c) `minusInteger` oneInteger) of
              r ->
                if c `ltInteger` r
                  then 2#