Commit 70aef6f5 authored by rrt's avatar rrt
Browse files

[project @ 2001-06-29 10:35:09 by rrt]

Stop copy adding a newline to the end of the copy
parent 8b85c1c8
......@@ -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}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment