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/SimpleProtocol.hs | |
| parent | ff10867b8d11c734bc971f6fa4e86be94c15a7b1 (diff) | |
WIP on making --quiet silence progress, and infra for concurrent progress bars
Diffstat (limited to 'Utility/SimpleProtocol.hs')
| -rw-r--r-- | Utility/SimpleProtocol.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Utility/SimpleProtocol.hs b/Utility/SimpleProtocol.hs index 52284d457..2a1dab51d 100644 --- a/Utility/SimpleProtocol.hs +++ b/Utility/SimpleProtocol.hs @@ -81,7 +81,7 @@ splitWord = separate isSpace - and duplicate stderr to stdout. Return two new handles - that are duplicates of the original (stdin, stdout). -} dupIoHandles :: IO (Handle, Handle) -duoIoHandles = do +dupIoHandles = do readh <- hDuplicate stdin writeh <- hDuplicate stdout nullh <- openFile devNull ReadMode |