Commit ae860efa authored by simonmar's avatar simonmar
Browse files

[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).
parent c66f5f3e
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment