- let mod = md_id details
- locn <- mkHomeModule mod basename input_fn
- let hifile = hi_file locn
- -- write out the interface file here...
- return ()
+ let mod = moduleString (mi_module iface)
+ ohi <- readIORef output_hi
+ hifile <- case ohi of
+ Just fn -> fn
+ Nothing -> do hisuf <- readIORef hi_suf
+ return (current_dir ++
+ '/'mod ++ '.':hisuf)
+ -- write out the interface...
+ if_hdl <- openFile hifile WriteMode
+ printForIface if_hdl (pprIface iface)
+ hClose if_hdl