diff options
| author | partain <unknown> | 1996-07-25 21:33:42 +0000 |
|---|---|---|
| committer | partain <unknown> | 1996-07-25 21:33:42 +0000 |
| commit | 5eb1c77c795f92ed0f4c8023847e9d4be1a4fd0d (patch) | |
| tree | adb07110e00f00b2b2ef6365e16d5f58b260ce3c /ghc/compiler/rename | |
| parent | f7ecf7234c224489be8a5e63fced903b655d92ee (diff) | |
| download | haskell-5eb1c77c795f92ed0f4c8023847e9d4be1a4fd0d.tar.gz | |
[project @ 1996-07-25 20:43:49 by partain]
Bulk of final changes for 2.01
Diffstat (limited to 'ghc/compiler/rename')
| -rw-r--r-- | ghc/compiler/rename/Rename.lhs | 2 | ||||
| -rw-r--r-- | ghc/compiler/rename/RnNames.lhs | 5 |
2 files changed, 5 insertions, 2 deletions
diff --git a/ghc/compiler/rename/Rename.lhs b/ghc/compiler/rename/Rename.lhs index 2d8bd92945..54348b99c8 100644 --- a/ghc/compiler/rename/Rename.lhs +++ b/ghc/compiler/rename/Rename.lhs @@ -14,7 +14,7 @@ IMP_Ubiq() IMPORT_1_3(List(partition)) import HsSyn -import RdrHsSyn ( RdrNameHsModule(..), RdrNameImportDecl(..) ) +import RdrHsSyn ( SYN_IE(RdrNameHsModule), SYN_IE(RdrNameImportDecl) ) import RnHsSyn ( RnName(..){-.. is for Ix hack only-}, SYN_IE(RenamedHsModule), isRnTyConOrClass, isRnWired ) --ToDo:rm: all for debugging only diff --git a/ghc/compiler/rename/RnNames.lhs b/ghc/compiler/rename/RnNames.lhs index f7879502d7..28cd29aeaf 100644 --- a/ghc/compiler/rename/RnNames.lhs +++ b/ghc/compiler/rename/RnNames.lhs @@ -389,7 +389,10 @@ doImportDecls iface_cache g_info us src_imps rec_imp_fn :: Name -> (ExportFlag, [SrcLoc]) rec_imp_fn n = case lookupUFM rec_imp_fm n of - Nothing -> panic "RnNames:rec_imp_fn" + Nothing -> (NotExported,[mkBuiltinSrcLoc]) + -- panic "RnNames:rec_imp_fn" + -- but the panic can show up + -- in error messages Just (flag, locns) -> (flag, bagToList locns) i_info = (g_info, emptyFM, emptyFM, rec_imp_fn) |