diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-04-03 16:48:30 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-04-03 16:48:30 -0400 |
| commit | d660e2443b99817a33127443e5d7314c99c291fc (patch) | |
| tree | 4ae14e3f1d2c58c4ffd075ccee9d6b59caa0665f /Utility/Gpg.hs | |
| parent | ff10867b8d11c734bc971f6fa4e86be94c15a7b1 (diff) | |
WIP on making --quiet silence progress, and infra for concurrent progress bars
Diffstat (limited to 'Utility/Gpg.hs')
| -rw-r--r-- | Utility/Gpg.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Utility/Gpg.hs b/Utility/Gpg.hs index 3112db1bd..6323d3a00 100644 --- a/Utility/Gpg.hs +++ b/Utility/Gpg.hs @@ -142,7 +142,7 @@ pipeLazy params feeder reader = do setup = liftIO . createProcess cleanup p (_, _, _, pid) = liftIO $ forceSuccessProcess p pid go p = do - let (to, from) = bothHandles p + let (to, from) = ioHandles p liftIO $ void $ forkIO $ do feeder to hClose to |