From 7876920bbb403c2626878224d64f678b89748b07 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Fri, 14 Aug 1998 11:29:07 +0000
Subject: [PATCH] [project @ 1998-08-14 11:29:07 by sof] The project version
 is now set via command-line opt

---
 ghc/compiler/main/MkIface.lhs |    3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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,
-- 
1.7.10.4