[project @ 2001-07-11 22:47:32 by sof]

[ghc-hetmet.git] / ghc / compiler / main / CodeOutput.lhs

diff --git a/ghc/compiler/main/CodeOutput.lhs b/ghc/compiler/main/CodeOutput.lhs
index df6337d..f100d57 100644 (file)
--- 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}