Network.Remote.RPC.Internal.MultiServer

Documentation

data ServiceID

Constructors

LocNumber Integer

LocName String

Instances

Eq ServiceID

Ord ServiceID

Read ServiceID

Show ServiceID

MonadReader State AIO

type Handlers = Map ServiceID (Handle -> AIO ())

type State = MVar (Handlers, Integer)

newtype AIO a

Constructors

AIO (ReaderT State IO a)

Instances

Monad AIO

Functor AIO

MonadIO AIO

MonadReader State AIO

send :: (Show a, MonadIO m) => Handle -> a -> m ()

recv :: (Read a, MonadIO m) => Handle -> m a

startServer :: Integer -> AIO a -> IO a

safeFind :: (Ord k, Show k) => Map k a -> k -> a

unsafePerformServer :: State -> AIO a -> a

getHandlers :: AIO State

addService :: (Handle -> AIO ()) -> AIO ServiceID

addServiceByName :: String -> (Handle -> AIO ()) -> AIO ServiceID

connectToService :: MonadIO m => String -> Integer -> ServiceID -> m Handle