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

use right handle

Browse source
This commit is contained in:
Joey Hess 2020-06-05 16:45:12 -04:00
parent 05703893af
commit 291774779f
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Remote/Bup.hs
View file

@ -167,10 +167,10 @@ store r buprepo = byteStorer $ \k b p -> do
feeder = \h -> meteredWrite p h b feeder = \h -> meteredWrite p h b
in withCreateProcess cmd' (go feeder cmd') in withCreateProcess cmd' (go feeder cmd')
where where
go feeder p (Just hin) _ _ pid = go feeder p _ (Just h) _ pid =
forceSuccessProcess p pid forceSuccessProcess p pid
`after` `after`
feeder hin feeder h
go _ _ _ _ _ _ = error "internal" go _ _ _ _ _ _ = error "internal"
retrieve :: BupRepo -> Retriever retrieve :: BupRepo -> Retriever