18 

    18 

    19 {-# LANGUAGE ScopedTypeVariables, OverloadedStrings, Rank2Types #-}

    19 {-# LANGUAGE ScopedTypeVariables, OverloadedStrings, Rank2Types #-}

    20 module ClientIO where

    20 module ClientIO where

    21 

    21 

    22 import qualified Control.Exception as Exception

    22 import qualified Control.Exception as Exception

    23 import Control.Monad.State

    24 import Control.Monad.State

    24 import Control.Concurrent.Chan

    25 import Control.Concurrent.Chan

    25 import Control.Concurrent

    26 import Control.Concurrent

    26 import Network.Socket hiding (recv)

    27 import Network.Socket hiding (recv)

    27 import Network.Socket.ByteString

    28 import Network.Socket.ByteString