From 45249cb55644a82c79ce9e9790df70ef4b09e21d Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 16 Jul 2002 15:07:15 +0000
Subject: [PATCH] [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.

---
 ghc/compiler/main/HscMain.lhs |    8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/ghc/compiler/main/HscMain.lhs b/ghc/compiler/main/HscMain.lhs
index 348e562..3ae4866 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)
-- 
1.7.10.4