git-annex: GHC compatibility
This commit is contained in:
parent
0b7ed680f9
commit
fe944a96d3
1 changed files with 7 additions and 6 deletions
|
@ -133,12 +133,13 @@ store r buprepo = byteStorer $ \k b p -> do
|
||||||
showOutput -- make way for bup output
|
showOutput -- make way for bup output
|
||||||
let cmd = proc "bup" (toCommand params)
|
let cmd = proc "bup" (toCommand params)
|
||||||
quiet <- commandProgressDisabled
|
quiet <- commandProgressDisabled
|
||||||
let runner = if quiet
|
if quiet
|
||||||
then feedWithQuietOutput
|
then liftIO $ feedWithQuietOutput createProcessSuccess cmd $ \h -> do
|
||||||
else withHandle StdinHandle
|
meteredWrite p h b
|
||||||
liftIO $ runner createProcessSuccess cmd $ \h -> do
|
return True
|
||||||
meteredWrite p h b
|
else liftIO $ withHandle StdinHandle createProcessSuccess cmd $ \h -> do
|
||||||
return True
|
meteredWrite p h b
|
||||||
|
return True
|
||||||
|
|
||||||
retrieve :: BupRepo -> Retriever
|
retrieve :: BupRepo -> Retriever
|
||||||
retrieve buprepo = byteRetriever $ \k sink -> do
|
retrieve buprepo = byteRetriever $ \k sink -> do
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue