diff options
author | simonmar <unknown> | 2001-05-31 11:25:51 +0000 |
---|---|---|
committer | simonmar <unknown> | 2001-05-31 11:25:51 +0000 |
commit | 0f53b896cbda2c2030e93f3afd07f0aa553487e0 (patch) | |
tree | ddb238f4776e5b630a34bd86e25a83f35d91dc70 /ghc/compiler/rename/Rename.lhs | |
parent | 85f83fc1f0c1a7d6c543fe001ba89548efec2380 (diff) | |
download | haskell-0f53b896cbda2c2030e93f3afd07f0aa553487e0.tar.gz |
[project @ 2001-05-31 11:25:51 by simonmar]
If we can't read the old interface file for some reason (eg. it isn't
there, or it has the wrong version), then output the error if
-ddump-hi-diffs is on. It used to be part of -ddump-rn-trace, but
-ddump-hi-diffs seems more logical, since it covers all the other
information about why a module is being recompiled.
Diffstat (limited to 'ghc/compiler/rename/Rename.lhs')
-rw-r--r-- | ghc/compiler/rename/Rename.lhs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ghc/compiler/rename/Rename.lhs b/ghc/compiler/rename/Rename.lhs index de1e0be278..b8fce2eb20 100644 --- a/ghc/compiler/rename/Rename.lhs +++ b/ghc/compiler/rename/Rename.lhs @@ -413,7 +413,9 @@ checkOldIface ghci_mode dflags hit hst pcs iface_path source_unchanged maybe_ifa -> readIface iface_path `thenRn` \ read_result -> case read_result of Left err -> -- Old interface file not found, or garbled; give up - traceRn (text "Bad old interface file" $$ nest 4 err) `thenRn_` + traceHiDiffsRn ( + text "Cannot read old interface file:" + $$ nest 4 err) `thenRn_` returnRn (outOfDate, Nothing) Right parsed_iface |