From b0553f9eb828a2c8abd5fd1e8f7be7fb87460646 Mon Sep 17 00:00:00 2001
From: lemmih <lemmih@gmail.com>
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