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

fix reversion

Browse source 
Accidentially lost the handle setup in processTranscript.
This commit is contained in:
Joey Hess 2020-06-05 10:40:41 -04:00
parent a3d1f967a8
commit b329cf32ec
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
Utility/Process/Transcript.hs
View file

@ -50,7 +50,12 @@ processTranscript'' cp input = do
System.Posix.IO.setFdOption writef System.Posix.IO.CloseOnExec True System.Posix.IO.setFdOption writef System.Posix.IO.CloseOnExec True
readh <- System.Posix.IO.fdToHandle readf readh <- System.Posix.IO.fdToHandle readf
writeh <- System.Posix.IO.fdToHandle writef writeh <- System.Posix.IO.fdToHandle writef
withCreateProcess cp $ \hin hout herr pid -> do let cp' = cp
{ std_in = if isJust input then CreatePipe else Inherit
, std_out = UseHandle writeh
, std_err = UseHandle writeh
}
withCreateProcess cp' $ \hin hout herr pid -> do
hClose writeh hClose writeh
get <- asyncreader readh get <- asyncreader readh