From 2a85d6e815dff5161b20bd16f6b029bcc92d6645 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Wed, 11 Dec 2002 12:04:05 +0000
Subject: [PATCH] [project @ 2002-12-11 12:04:05 by simonpj] wibbles to
 External Core

---
 ghc/compiler/coreSyn/ExternalCore.lhs   |    2 +-
 ghc/compiler/coreSyn/MkExternalCore.lhs |    2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/ghc/compiler/coreSyn/ExternalCore.lhs b/ghc/compiler/coreSyn/ExternalCore.lhs
index adfaecd..06cf079 100644
--- a/ghc/compiler/coreSyn/ExternalCore.lhs
+++ b/ghc/compiler/coreSyn/ExternalCore.lhs
@@ -76,7 +76,7 @@ type Qual t = (Mname,t)
 
 type Id = String
 
-primMname = "GHC.Prim"
+primMname = "GHCziPrim"
 
 tcArrow :: Qual Tcon
 tcArrow = (primMname, "ZLzmzgZR")
diff --git a/ghc/compiler/coreSyn/MkExternalCore.lhs b/ghc/compiler/coreSyn/MkExternalCore.lhs
index 0f37564..20963b0 100644
--- a/ghc/compiler/coreSyn/MkExternalCore.lhs
+++ b/ghc/compiler/coreSyn/MkExternalCore.lhs
@@ -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))
-- 
1.7.10.4