From 0366d67ee862638e7a4aa65c6a384fcce3475ae1 Mon Sep 17 00:00:00 2001
From: Joachim Breitner <mail@joachim-breitner.de>
Date: Thu, 28 Feb 2013 14:57:16 +0000
Subject: [PATCH] Use wordHost instead of CPP stuff

---
 src/GHC/Disassembler.hs | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/src/GHC/Disassembler.hs b/src/GHC/Disassembler.hs
index 982a0aa..53dd7f9 100644
--- a/src/GHC/Disassembler.hs
+++ b/src/GHC/Disassembler.hs
@@ -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.
-- 
2.20.1