From ed3bcbb650a0b6c7f50d9ab81621aa085615380a Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 25 Nov 2012 16:13:06 -0400 Subject: remove redundant showOutput calls. The meter code does that too. --- Remote/Glacier.hs | 2 -- 1 file changed, 2 deletions(-) (limited to 'Remote') diff --git a/Remote/Glacier.hs b/Remote/Glacier.hs index 2a88b925e..f960c517f 100644 --- a/Remote/Glacier.hs +++ b/Remote/Glacier.hs @@ -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 -> -- cgit v1.2.3