Remove integer-gmp dependency
authorJoachim Breitner <mail@joachim-breitner.de>
Mon, 12 Mar 2012 15:16:24 +0000 (15:16 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Mon, 12 Mar 2012 15:16:24 +0000 (15:16 +0000)
ghc-heap-view.cabal
src/GHC/HeapView.hs

index 6b45cc6..a2ad00b 100644 (file)
@@ -25,8 +25,7 @@ Library
   Build-depends:
     base,
     ghc,
-    ghc-prim,
-    integer-gmp
+    ghc-prim
   C-Sources: cbits/HeapView.c cbits/HeapViewPrim.cmm
   Hs-source-dirs: src/
 
index 516ee7e..3de0496 100644 (file)
@@ -21,7 +21,6 @@ import Numeric          ( showHex )
 import Data.Word
 import Data.Bits
 import Data.Char
-import GHC.Integer (wordToInteger)
 import Control.Monad
 
 newtype HValue = HValue Any
@@ -37,7 +36,7 @@ instance Show Box where
     -- unsafePerformIO (print "↓" >> pClosure any) `seq`    
     pad_out (showHex addr "") ++ (if tag>0 then "/" ++ show tag else "") ++ rs
      where
-       ptr  = wordToInteger(int2Word#(aToInt# any))
+       ptr  = W# (int2Word# (aToInt# any))
        tag  = ptr .&. fromIntegral tAG_MASK -- ((1 `shiftL` TAG_BITS) -1)
        addr = ptr - tag
         -- want 0s prefixed to pad it out to a fixed length.