diff options
-rw-r--r-- | Remote/Glacier.hs | 2 |
1 files changed, 0 insertions, 2 deletions
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 -> |