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