From 141937ed091643e2c47207f3818f46c7cf341189 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 3 Apr 2015 15:33:28 -0400 Subject: rename bothHandles -> ioHandles --- Utility/SimpleProtocol.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'Utility/SimpleProtocol.hs') diff --git a/Utility/SimpleProtocol.hs b/Utility/SimpleProtocol.hs index 4a2d8635e..52284d457 100644 --- a/Utility/SimpleProtocol.hs +++ b/Utility/SimpleProtocol.hs @@ -16,7 +16,7 @@ module Utility.SimpleProtocol ( parse1, parse2, parse3, - ioHandles, + dupIoHandles, ) where import Data.Char @@ -80,8 +80,8 @@ splitWord = separate isSpace - will mess up the protocol. To avoid that, close stdin, and - and duplicate stderr to stdout. Return two new handles - that are duplicates of the original (stdin, stdout). -} -ioHandles :: IO (Handle, Handle) -ioHandles = do +dupIoHandles :: IO (Handle, Handle) +duoIoHandles = do readh <- hDuplicate stdin writeh <- hDuplicate stdout nullh <- openFile devNull ReadMode -- cgit v1.2.3