rename bothHandles -> ioHandles

This commit is contained in:
Joey Hess 2015-04-03 15:33:28 -04:00
parent bc0180da83
commit 1c91024978
6 changed files with 15 additions and 14 deletions

View file

@ -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