Fixed 'way' tag in the Hi parser.
This commit is contained in:
parent
9a221a70d0
commit
b0553f9eb8
@ -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
|
||||||
|
Loading…
x
Reference in New Issue
Block a user