diff options
| author | simonpj <unknown> | 2000-11-01 17:15:30 +0000 |
|---|---|---|
| committer | simonpj <unknown> | 2000-11-01 17:15:30 +0000 |
| commit | 2ffefc1bfca0c8924825cd15750e7ced457f3c81 (patch) | |
| tree | b8a9c3fb5fceb8e7c2b8374b9e5f81eb15d016e0 /ghc/compiler/rename/Rename.lhs | |
| parent | ece274b642d9edd5a90de78a432898509d87209d (diff) | |
| download | haskell-2ffefc1bfca0c8924825cd15750e7ced457f3c81.tar.gz | |
[project @ 2000-11-01 17:15:28 by simonpj]
More renamer commits
Versioning now works properly I think.
The main irritation is that interface files now have fuly-qualified names for
*everything*, even things defined in that module. This is a deficiency in
the pretty printing for interface files. Probable solution: add something
to the SDoc styles. But not today.
Diffstat (limited to 'ghc/compiler/rename/Rename.lhs')
| -rw-r--r-- | ghc/compiler/rename/Rename.lhs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/ghc/compiler/rename/Rename.lhs b/ghc/compiler/rename/Rename.lhs index f080bd942e..a54934d32a 100644 --- a/ghc/compiler/rename/Rename.lhs +++ b/ghc/compiler/rename/Rename.lhs @@ -239,8 +239,8 @@ implicitFVs mod_name decls implicit_occs = string_occs ++ foldr ((++) . get) implicit_main decls -- Virtually every program has error messages in it somewhere - string_occs = [unpackCString_RDR, unpackCStringFoldr_RDR, unpackCStringUtf8_RDR, - eqString_RDR] + string_occs = [unpackCString_RDR, unpackCStringFoldr_RDR, + unpackCStringUtf8_RDR, eqString_RDR] get (TyClD (TyData _ _ _ _ _ _ (Just deriv_classes) _ _ _)) = concat (map get_deriv deriv_classes) @@ -385,7 +385,8 @@ checkOldIface dflags hit hst pcs iface_path source_unchanged maybe_iface -> do read_result <- readIface do_traceRn iface_path case read_result of Left err -> -- Old interface file not found, or garbled; give up - return (pcs, False, (outOfDate, Nothing)) + do { ioTraceRn (text "Bad old interface file" $$ nest 4 err) ; + return (pcs, False, (outOfDate, Nothing)) } Right parsed_iface -> startRn (pi_mod parsed_iface) $ loadOldIface parsed_iface `thenRn` \ m_iface -> |