From 2b876f52e9334f34a5c722af8389938d3e4d2557 Mon Sep 17 00:00:00 2001
From: Lemmih <lemmih@gmail.com>
Date: Mon, 29 Jan 2007 03:15:27 +0000
Subject: [PATCH] Hi parser for ghc6.6

---
 src/Language/Hi/Parser.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Language/Hi/Parser.hs b/src/Language/Hi/Parser.hs
index db19b19..2d166e5 100644
--- a/src/Language/Hi/Parser.hs
+++ b/src/Language/Hi/Parser.hs
@@ -70,9 +70,9 @@ instance Binary Iface where
             build_tag <- get bh :: IO String     -- 'way' flag
 
 #if __GLASGOW_HASKELL__ >= 604
+            pkg_name  <- get bh :: IO FastString
             mod_name  <- get bh :: IO FastString
             _is_boot  <- get bh :: IO Bool
-            let pkg_name = mkFastString "unknown"  -- >=604 has no package field
 #elif CABAL == 1 && __GLASGOW_HASKELL__ == 603
             mod_name <- get bh :: IO FastString
             let pkg_name = mkFastString "unknown"