diff options
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 |