[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 (file)
--- 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