diff options
| author | simonmar <unknown> | 2002-07-16 15:07:15 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2002-07-16 15:07:15 +0000 |
| commit | 45249cb55644a82c79ce9e9790df70ef4b09e21d (patch) | |
| tree | 9319804054957076662741d1b7e5682d20f79d6f | |
| parent | 9a972425548b14c2267e4a82fa1525314ebd7b06 (diff) | |
| download | haskell-45249cb55644a82c79ce9e9790df70ef4b09e21d.tar.gz | |
[project @ 2002-07-16 15:07:15 by simonmar]
Silly me, the version number in the interface isn't correct until
after mkFinalIface, so don't grab it until then.
| -rw-r--r-- | ghc/compiler/main/HscMain.lhs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ghc/compiler/main/HscMain.lhs b/ghc/compiler/main/HscMain.lhs index 348e562d43..3ae48663b9 100644 --- a/ghc/compiler/main/HscMain.lhs +++ b/ghc/compiler/main/HscMain.lhs @@ -240,9 +240,6 @@ hscRecomp ghci_mode dflags have_object -- force this out now, so we don't keep a hold of rdr_module or pcs_tc ; seqList imported_modules (return ()) - -- this module's version - ; version <- return $! vers_module (mi_version new_iface) - ------------------- -- FLATTENING ------------------- @@ -279,7 +276,6 @@ hscRecomp ghci_mode dflags have_object -- flat_details -- imported_modules (seq'd) -- new_iface - -- version ------------------- -- SIMPLIFY @@ -391,6 +387,10 @@ hscRecomp ghci_mode dflags have_object final_iface <- _scc_ "MkFinalIface" mkFinalIface ghci_mode dflags location maybe_checked_iface new_iface tidy_details + + -- get this module's version + version <- return $! vers_module (mi_version final_iface) + if toNothing then do return (False, False, Nothing, final_iface) |