Use wordHost instead of CPP stuff
[ghc-heap-view.git] / src / GHC / Disassembler.hs
index 982a0aa..53dd7f9 100644 (file)
@@ -27,11 +27,7 @@ toBytes n =
     BS.take (fromIntegral n) .
     toLazyByteString .
     mconcat .
-#if SIZEOF_VOID_P == 8
-    map (word64Host . fromIntegral)
-#else
-    map (word32Host . fromIntegral)
-#endif
+    map (wordHost . fromIntegral)
 
 -- | Given a list of pointers, a list of literals and a ByteString containing
 -- byte code instructions, disassembles them into a list of byte code instructions.