Safe Haskell	None
Language	Haskell2010

Examples.Raft.Socket.Client

Synopsis

data ClientSocketEnv = ClientSocketEnv {
- clientPort :: ServiceName
- clientHost :: HostName
- clientSocket :: Socket
}
newtype RaftSocketClientM a = RaftSocketClientM {
- unRaftSocketClientM :: ReaderT ClientSocketEnv IO a
}
runRaftSocketClientM :: ClientSocketEnv -> RaftSocketClientM a -> IO a
selectRndNode :: NodeIds -> IO NodeId
sendReadRndNode :: (Serialize sm, Serialize v) => Proxy v -> NodeIds -> RaftSocketClientM (Either [Char] (ClientResponse sm))
sendWriteRndNode :: (Serialize v, Serialize sm) => v -> NodeIds -> RaftSocketClientM (Either [Char] (ClientResponse sm))
sendRead :: forall v sm. (Serialize sm, Serialize v) => Proxy v -> NodeId -> RaftSocketClientM (Either [Char] (ClientResponse sm))
sendWrite :: (Serialize v, Serialize sm) => v -> NodeId -> RaftSocketClientM (Either [Char] (ClientResponse sm))
acceptClientConnections :: Serialize sm => RaftSocketClientM (Either [Char] (ClientResponse sm))

Documentation

data ClientSocketEnv #

Constructors

ClientSocketEnv
Fields clientPort :: ServiceName clientHost :: HostName clientSocket :: Socket

Instances

Show ClientSocketEnv #
Instance details Defined in Examples.Raft.Socket.Client Methods showsPrec :: Int -> ClientSocketEnv -> ShowS # show :: ClientSocketEnv -> String # showList :: [ClientSocketEnv] -> ShowS #
MonadReader ClientSocketEnv RaftSocketClientM #
Instance details Defined in Examples.Raft.Socket.Client Methods ask :: RaftSocketClientM ClientSocketEnv # local :: (ClientSocketEnv -> ClientSocketEnv) -> RaftSocketClientM a -> RaftSocketClientM a # reader :: (ClientSocketEnv -> a) -> RaftSocketClientM a #

newtype RaftSocketClientM a #

Constructors

RaftSocketClientM
Fields unRaftSocketClientM :: ReaderT ClientSocketEnv IO a

Instances

Monad RaftSocketClientM #
Instance details Defined in Examples.Raft.Socket.Client Methods (>>=) :: RaftSocketClientM a -> (a -> RaftSocketClientM b) -> RaftSocketClientM b # (>>) :: RaftSocketClientM a -> RaftSocketClientM b -> RaftSocketClientM b # return :: a -> RaftSocketClientM a # fail :: String -> RaftSocketClientM a #
Functor RaftSocketClientM #
Instance details Defined in Examples.Raft.Socket.Client Methods fmap :: (a -> b) -> RaftSocketClientM a -> RaftSocketClientM b # (<$) :: a -> RaftSocketClientM b -> RaftSocketClientM a #
Applicative RaftSocketClientM #
Instance details Defined in Examples.Raft.Socket.Client Methods pure :: a -> RaftSocketClientM a # (<>) :: RaftSocketClientM (a -> b) -> RaftSocketClientM a -> RaftSocketClientM b # liftA2 :: (a -> b -> c) -> RaftSocketClientM a -> RaftSocketClientM b -> RaftSocketClientM c # (>) :: RaftSocketClientM a -> RaftSocketClientM b -> RaftSocketClientM b # (<*) :: RaftSocketClientM a -> RaftSocketClientM b -> RaftSocketClientM a #
Alternative RaftSocketClientM #
Instance details Defined in Examples.Raft.Socket.Client Methods empty :: RaftSocketClientM a # (<\|>) :: RaftSocketClientM a -> RaftSocketClientM a -> RaftSocketClientM a # some :: RaftSocketClientM a -> RaftSocketClientM [a] # many :: RaftSocketClientM a -> RaftSocketClientM [a] #
MonadPlus RaftSocketClientM #
Instance details Defined in Examples.Raft.Socket.Client Methods mzero :: RaftSocketClientM a # mplus :: RaftSocketClientM a -> RaftSocketClientM a -> RaftSocketClientM a #
MonadIO RaftSocketClientM #
Instance details Defined in Examples.Raft.Socket.Client Methods liftIO :: IO a -> RaftSocketClientM a #
MonadReader ClientSocketEnv RaftSocketClientM #
Instance details Defined in Examples.Raft.Socket.Client Methods ask :: RaftSocketClientM ClientSocketEnv # local :: (ClientSocketEnv -> ClientSocketEnv) -> RaftSocketClientM a -> RaftSocketClientM a # reader :: (ClientSocketEnv -> a) -> RaftSocketClientM a #

runRaftSocketClientM :: ClientSocketEnv -> RaftSocketClientM a -> IO a #

selectRndNode :: NodeIds -> IO NodeId #

Randomly select a node from a set of nodes a send a message to it

sendReadRndNode :: (Serialize sm, Serialize v) => Proxy v -> NodeIds -> RaftSocketClientM (Either [Char] (ClientResponse sm)) #

Randomly read the state of a random node

sendWriteRndNode :: (Serialize v, Serialize sm) => v -> NodeIds -> RaftSocketClientM (Either [Char] (ClientResponse sm)) #

Randomly write to a random node

sendRead :: forall v sm. (Serialize sm, Serialize v) => Proxy v -> NodeId -> RaftSocketClientM (Either [Char] (ClientResponse sm)) #

Request the state of a node. It blocks until the node responds

sendWrite :: (Serialize v, Serialize sm) => v -> NodeId -> RaftSocketClientM (Either [Char] (ClientResponse sm)) #

Write to a node. It blocks until the node responds

acceptClientConnections :: Serialize sm => RaftSocketClientM (Either [Char] (ClientResponse sm)) #

Accept a connection and return the client response synchronously