From b0553f9eb828a2c8abd5fd1e8f7be7fb87460646 Mon Sep 17 00:00:00 2001 From: lemmih Date: Wed, 3 Aug 2005 02:16:29 +0000 Subject: [PATCH] Fixed 'way' tag in the Hi parser. --- src/hi/Language/Hi/Parser.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/hi/Language/Hi/Parser.hs b/src/hi/Language/Hi/Parser.hs index 11c3ed4..89d0c83 100644 --- a/src/hi/Language/Hi/Parser.hs +++ b/src/hi/Language/Hi/Parser.hs @@ -48,7 +48,6 @@ import Language.Hi.Syntax import Language.Hi.Binary import Language.Hi.FastString -import GHC.Word #include "../../../../config.h" @@ -69,7 +68,7 @@ readIface hi_path = getBinFileWithDict hi_path instance Binary Iface where get bh = do version <- get bh :: IO String - build_tag <- get bh :: IO Word8 -- 'way' flag + build_tag <- get bh :: IO String -- 'way' flag #if __GLASGOW_HASKELL__ >= 604 mod_name <- get bh :: IO FastString