X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FIntWord64.hs;h=1b2da2f5a834a9245a2ec740b7044213cfc40e08;hb=49d560213f818de8ed7713ed9c3bf2ed210b076a;hp=29f353c6ca0422f8d0c49f22ffe51bafde90535d;hpb=f61cbd37654e0b6fe8afefafd51f1fb03e8dd052;p=ghc-prim.git

diff --git a/GHC/IntWord64.hs b/GHC/IntWord64.hs
index 29f353c..1b2da2f 100644
--- a/GHC/IntWord64.hs
+++ b/GHC/IntWord64.hs
@@ -24,10 +24,9 @@ module GHC.IntWord64 (
 #endif
  ) where
 
-import GHC.Bool
-import GHC.Prim
-
 #if WORD_SIZE_IN_BITS < 64
+import GHC.Prim
+import GHC.Types
 
 foreign import ccall unsafe "hs_eqWord64"    eqWord64#      :: Word64# -> Word64# -> Bool
 foreign import ccall unsafe "hs_neWord64"    neWord64#      :: Word64# -> Word64# -> Bool
@@ -63,8 +62,6 @@ foreign import ccall unsafe "hs_uncheckedIShiftL64"  uncheckedIShiftL64#  :: Int
 foreign import ccall unsafe "hs_uncheckedIShiftRA64" uncheckedIShiftRA64# :: Int64# -> Int# -> Int64#
 foreign import ccall unsafe "hs_uncheckedIShiftRL64" uncheckedIShiftRL64# :: Int64# -> Int# -> Int64#
 
-foreign import ccall unsafe "hs_integerToWord64" integerToWord64# :: Int# -> ByteArray# -> Word64#
-foreign import ccall unsafe "hs_integerToInt64"  integerToInt64#  :: Int# -> ByteArray# -> Int64#
 foreign import ccall unsafe "hs_int64ToWord64"   int64ToWord64#   :: Int64# -> Word64#
 foreign import ccall unsafe "hs_word64ToInt64"   word64ToInt64#   :: Word64# -> Int64#
 foreign import ccall unsafe "hs_intToInt64"      intToInt64#      :: Int# -> Int64#