fix missing new lines in processTranscript

This commit is contained in:
Joey Hess 2021-08-02 13:42:27 -04:00
parent b3c4579c79
commit 86bd9ac186
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -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