From 86bd9ac18653b3bc8743bf0bd875ea69b11e42bd Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 2 Aug 2021 13:42:27 -0400 Subject: [PATCH] fix missing new lines in processTranscript --- Utility/Process/Transcript.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Utility/Process/Transcript.hs b/Utility/Process/Transcript.hs index e720a289e7..7bf94ffa05 100644 --- 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 -- 2.30.2