Fixed 'way' tag in the Hi parser.

This commit is contained in:
lemmih 2005-08-03 02:16:29 +00:00
parent 9a221a70d0
commit b0553f9eb8

View File

@ -48,7 +48,6 @@ import Language.Hi.Syntax
import Language.Hi.Binary import Language.Hi.Binary
import Language.Hi.FastString import Language.Hi.FastString
import GHC.Word
#include "../../../../config.h" #include "../../../../config.h"
@ -69,7 +68,7 @@ readIface hi_path = getBinFileWithDict hi_path
instance Binary Iface where instance Binary Iface where
get bh = do get bh = do
version <- get bh :: IO String 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 #if __GLASGOW_HASKELL__ >= 604
mod_name <- get bh :: IO FastString mod_name <- get bh :: IO FastString