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

improved refactoring

Browse source 
ghc 8.0.1 didn't like runner because it used Rank2Types or something.
Instead, factor out the feeder action.
This commit is contained in:
Joey Hess 2016-05-23 18:47:30 -04:00
parent 12cee25b41
commit 20bfbb28ac
Failed to extract signature
1 changed files with 6 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
Remote/Bup.hs
View file

@ -133,13 +133,12 @@ store r buprepo = byteStorer $ \k b p -> do
showOutput -- make way for bup output
let cmd = proc "bup" (toCommand params)
quiet <- commandProgressDisabled
if quiet
then liftIO $ feedWithQuietOutput createProcessSuccess cmd $ \h -> do
meteredWrite p h b
return True
else liftIO $ withHandle StdinHandle createProcessSuccess cmd $ \h -> do
meteredWrite p h b
return True
let feeder = \h -> do
meteredWrite p h b
return True
liftIO $ if quiet
then feedWithQuietOutput createProcessSuccess cmd feeder
else withHandle StdinHandle createProcessSuccess cmd feeder
retrieve :: BupRepo -> Retriever
retrieve buprepo = byteRetriever $ \k sink -> do