From 2ca47382b67e317058f79b6bbbdf44a35822e650 Mon Sep 17 00:00:00 2001 From: simonm Date: Tue, 7 Oct 1997 14:51:49 +0000 Subject: [PATCH] [project @ 1997-10-07 14:51:49 by simonm] add missing IFaceFlavour field. --- ghc/compiler/reader/ReadPrefix.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 1.7.10.4