From: simonmar <unknown>
Date: Fri, 14 Apr 2000 09:37:03 +0000 (+0000)
Subject: [project @ 2000-04-14 09:37:03 by simonmar]
X-Git-Tag: Approximately_9120_patches~4702
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=ae860efadc3f6b01749f9e45aa8164f68a773803;p=ghc-hetmet.git

[project @ 2000-04-14 09:37:03 by simonmar]
Don't bother printing the HiVersion in the __interface line (it's
added by ghc-iface later on anyway).
---

diff --git a/ghc/compiler/main/MkIface.lhs b/ghc/compiler/main/MkIface.lhs
index b540092..1e2897b 100644
--- a/ghc/compiler/main/MkIface.lhs
+++ b/ghc/compiler/main/MkIface.lhs
@@ -104,7 +104,6 @@ startIface mod (InterfaceDetails has_orphans import_usages (ExportEnv avails fix
       Just fn -> do 
 	if_hdl <- openFile fn WriteMode
 	hPutStr		if_hdl ("__interface \"" ++ show opt_InPackage ++ "\" " ++ moduleString mod)
-	hPutStr		if_hdl (' ' : show (opt_HiVersion :: Int))
 	hPutStr		if_hdl (' ' : orphan_indicator)
 	hPutStrLn	if_hdl " where"
 	ifaceExports	if_hdl avails