From: sof <unknown>
Date: Fri, 14 Aug 1998 11:29:07 +0000 (+0000)
Subject: [project @ 1998-08-14 11:29:07 by sof]
X-Git-Tag: Approx_2487_patches~410
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=7876920bbb403c2626878224d64f678b89748b07;p=ghc-hetmet.git

[project @ 1998-08-14 11:29:07 by sof]
The project version is now set via command-line opt
---

diff --git a/ghc/compiler/main/MkIface.lhs b/ghc/compiler/main/MkIface.lhs
index 57c82b7..a3b148e 100644
--- a/ghc/compiler/main/MkIface.lhs
+++ b/ghc/compiler/main/MkIface.lhs
@@ -104,7 +104,7 @@ startIface mod
       Nothing -> return Nothing -- not producing any .hi file
       Just fn -> do
 	if_hdl <- openFile fn WriteMode
-	hPutStrLn if_hdl ("_interface_ "++ _UNPK_ mod ++ ' ':show (PROJECTVERSION :: Int))
+	hPutStrLn if_hdl ("_interface_ "++ _UNPK_ mod ++ ' ':show (opt_HiVersion :: Int))
 	return (Just if_hdl)
 
 endIface Nothing	= return ()
@@ -182,6 +182,7 @@ ifaceExports if_hdl avails
 		       mod = nameModule (availName avail)
 
 	-- Print one module's worth of stuff
+    do_one_module :: (Module, [AvailInfo]) -> SDoc
     do_one_module (mod_name, avails@(avail1:_))
 	= hsep [pp_hif (ifaceFlavour (availName avail1)), 
 		pprModule mod_name,