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

remove redundant showOutput calls.

Browse source 
The meter code does that too.
This commit is contained in:
Joey Hess 2012-11-25 16:13:06 -04:00
parent 59da54f763
commit 356120652f
1 changed files with 0 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Remote/Glacier.hs
View file

@ -126,7 +126,6 @@ storeHelper r k feeder = go =<< glacierEnv c u
]
go Nothing = return False
go (Just e) = do
showOutput
let p = (proc "glacier" (toCommand params)) { env = Just e }
liftIO $ catchBoolIO $
withHandle StdinHandle createProcessSuccess p $ \h -> do
@ -147,7 +146,6 @@ retrieveHelper r k reader = go =<< glacierEnv c u
]
go Nothing = return False
go (Just e) = do
showOutput
let p = (proc "glacier" (toCommand params)) { env = Just e }
ok <- liftIO $ catchBoolIO $
withHandle StdoutHandle createProcessSuccess p $ \h ->