rename bothHandles -> ioHandles
This commit is contained in:
parent
bc0180da83
commit
1c91024978
6 changed files with 15 additions and 14 deletions
|
@ -28,7 +28,7 @@ import qualified Data.Map as M
|
|||
|
||||
runForeground :: IO ()
|
||||
runForeground = do
|
||||
(readh, writeh) <- ioHandles
|
||||
(readh, writeh) <- dupIoHandles
|
||||
ichan <- newTChanIO :: IO (TChan Consumed)
|
||||
ochan <- newTChanIO :: IO (TChan Emitted)
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue