X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FCodeOutput.lhs;h=f100d57c9bf0259b77f031ccbd2f739a4d61537a;hb=1dfaee318171836b32f6b33a14231c69adfdef2f;hp=df6337d08f88b728017da202360ab5540c000827;hpb=508aae27ab8e5b4a3c518bdeeec4be5dbd540a4a;p=ghc-hetmet.git

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}