rename bothHandles -> ioHandles
This commit is contained in:
parent
bc0180da83
commit
1c91024978
6 changed files with 15 additions and 14 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue