From: simonm <unknown>
Date: Tue, 7 Oct 1997 14:51:49 +0000 (+0000)
Subject: [project @ 1997-10-07 14:51:49 by simonm]
X-Git-Tag: Approx_2487_patches~1415
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=2ca47382b67e317058f79b6bbbdf44a35822e650

[project @ 1997-10-07 14:51:49 by simonm]
add missing IFaceFlavour field.
---

diff --git a/ghc/compiler/reader/ReadPrefix.lhs b/ghc/compiler/reader/ReadPrefix.lhs
index 3ce008b..6f72409 100644
--- a/ghc/compiler/reader/ReadPrefix.lhs
+++ b/ghc/compiler/reader/ReadPrefix.lhs
@@ -90,7 +90,7 @@ wlkQid mk_occ_name (U_noqual name)
 wlkQid mk_occ_name (U_aqual  mod name)
   = returnUgn (Qual mod (mk_occ_name name) HiFile)
 wlkQid mk_occ_name (U_gid n name)
-  = returnUgn (Qual pRELUDE (mk_occ_name name))
+  = returnUgn (Qual pRELUDE (mk_occ_name name) HiFile)
 
 rdTCId  pt = rdU_qid pt `thenUgn` \ qid -> wlkTCId qid
 rdVarId pt = rdU_qid pt `thenUgn` \ qid -> wlkVarId qid