Fix BCO disassembler

GHC-7.8 has https://ghc.haskell.org/trac/ghc/ticket/7518 fixed, so the
byte code parser has to be adjusted. Fixes #1.

diff --git a/src/GHC/Disassembler.hs b/src/GHC/Disassembler.hs
index 53dd7f9..c4375f3 100644 (file)
--- a/src/GHC/Disassembler.hs
+++ b/src/GHC/Disassembler.hs
@@ -33,6 +33,7 @@ toBytes n =
 -- byte code instructions, disassembles them into a list of byte code instructions.
 disassemble :: forall box. [box] -> [Word] -> ByteString -> [BCI box]
 disassemble ptrs lits = runGet $ do
+#ifndef GHC_7_7
     -- Ignore length tag. Needs to be skipped with GHC versions with
     -- http://hackage.haskell.org/trac/ghc/ticket/7518 included
     _ <- getWord16host
@@ -41,6 +42,7 @@ disassemble ptrs lits = runGet $ do
     _ <- getWord16host
 #endif
     _n <- getWord16host
+#endif
     nextInst
   where
     getLiteral :: Get Word