fix missing new lines in processTranscript

diff --git a/Utility/Process/Transcript.hs b/Utility/Process/Transcript.hs
index e720a289e7a4adc97e2d87fbcaa894c70012a9d2..7bf94ffa053c31dfdc713bf9dfce56c5ba4e40e1 100644 (file)
--- a/Utility/Process/Transcript.hs
+++ b/Utility/Process/Transcript.hs
@@ -86,7 +86,7 @@ processTranscript'' cp input = do
   where
        asyncreader pid h = async $ reader pid h []
        reader pid h c = hGetLineUntilExitOrEOF pid h >>= \case
-               Nothing -> return (concat (reverse c))
+               Nothing -> return (unlines (reverse c))
                Just l -> reader pid h (l:c)
        writeinput (Just s) p = do
                let inh = stdinHandle p