From: rrt <unknown>
Date: Fri, 29 Jun 2001 10:35:09 +0000 (+0000)
Subject: [project @ 2001-06-29 10:35:09 by rrt]
X-Git-Tag: Approximately_9120_patches~1657
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=70aef6f55f3da6b7a181ed9e7aeee17f2c2a218a;p=ghc-hetmet.git

[project @ 2001-06-29 10:35:09 by rrt]
Stop copy adding a newline to the end of the copy
---

diff --git a/ghc/compiler/main/SysTools.lhs b/ghc/compiler/main/SysTools.lhs
index 6b88692..d393d97 100644
--- a/ghc/compiler/main/SysTools.lhs
+++ b/ghc/compiler/main/SysTools.lhs
@@ -410,7 +410,7 @@ copy purpose from to =
       h <- openFile to WriteMode
       ls <- readFile from -- inefficient, but it'll do for now.
 	    		      -- ToDo: speed up via slurping.
-      hPutStrLn h ls
+      hPutStr h ls
       hClose h) `catchAllIO`
 		 (\_ -> throwDyn (PhaseFailed purpose (ExitFailure 1)))
 \end{code}