fix missing new lines in processTranscript
This commit is contained in:
parent
b3c4579c79
commit
86bd9ac186
1 changed files with 1 additions and 1 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue