use right handle
This commit is contained in:
parent
05703893af
commit
291774779f
1 changed files with 2 additions and 2 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue