Stop copy adding a newline to the end of the copy
h <- openFile to WriteMode
ls <- readFile from -- inefficient, but it'll do for now.
-- ToDo: speed up via slurping.
h <- openFile to WriteMode
ls <- readFile from -- inefficient, but it'll do for now.
-- ToDo: speed up via slurping.
hClose h) `catchAllIO`
(\_ -> throwDyn (PhaseFailed purpose (ExitFailure 1)))
\end{code}
hClose h) `catchAllIO`
(\_ -> throwDyn (PhaseFailed purpose (ExitFailure 1)))
\end{code}