Skip to content
Snippets Groups Projects
Commit ae860efa authored by Simon Marlow's avatar Simon Marlow
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
No related merge requests found
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment