From: sof <unknown>
Date: Wed, 11 Jul 2001 22:47:32 +0000 (+0000)
Subject: [project @ 2001-07-11 22:47:32 by sof]
X-Git-Tag: Approximately_9120_patches~1577
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=fa22b47cf007744bd0bd43a234df919dadfe6adc;p=ghc-hetmet.git

[project @ 2001-07-11 22:47:32 by sof]
Append final newline to _stub.{c,h} output
---

diff --git a/ghc/compiler/main/CodeOutput.lhs b/ghc/compiler/main/CodeOutput.lhs
index df6337d..f100d57 100644
--- a/ghc/compiler/main/CodeOutput.lhs
+++ b/ghc/compiler/main/CodeOutput.lhs
@@ -220,7 +220,7 @@ outputForeignStubs dflags c_code h_code
 -- turn out to be empty, in which case no file should be created.
 outputForeignStubs_help fname "" injects     = return False
 outputForeignStubs_help fname doc_str injects
-   = do writeFile fname (injects ++ doc_str)
+   = do writeFile fname (injects ++ doc_str ++ "\n")
         return True
 \end{code}