Commit 2a85d6e8 authored by simonpj's avatar simonpj

[project @ 2002-12-11 12:04:05 by simonpj]

wibbles to External Core
parent 49f5cb28
......@@ -76,7 +76,7 @@ type Qual t = (Mname,t)
type Id = String
primMname = "GHC.Prim"
primMname = "GHCziPrim"
tcArrow :: Qual Tcon
tcArrow = (primMname, "ZLzmzgZR")
......
......@@ -38,7 +38,7 @@ emitExternalCore :: DynFlags -> ModGuts -> IO ()
emitExternalCore dflags mod_impl
| opt_EmitExternalCore
= (do handle <- openFile corename WriteMode
hPutStr handle (show (mkExternalCore mod_impl))
hPutStrLn handle (show (mkExternalCore mod_impl))
hClose handle)
`catch` (\err -> pprPanic "Failed to open or write external core output file"
(text corename))
......
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