use right handle

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

View file

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