mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix missing new lines in processTranscript

Browse source
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
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Utility/Process/Transcript.hs
View file

@ -86,7 +86,7 @@ processTranscript'' cp input = do
where where
asyncreader pid h = async $ reader pid h [] asyncreader pid h = async $ reader pid h []
reader pid h c = hGetLineUntilExitOrEOF pid h >>= \case 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) Just l -> reader pid h (l:c)
writeinput (Just s) p = do writeinput (Just s) p = do
let inh = stdinHandle p let inh = stdinHandle p