TurnLoop.STM

Documentation

newSessionWithChan :: MonadIO m => m (Session input state terminal)

type UserQueue sessionId rep userId = [(userId, MVar (Starter sessionId rep userId))]

type AnnounceDeck sessionId rep userId = Map sessionId [MVar (Starter sessionId rep userId)]

newLobbyFIFOWithSTM :: (MonadIO m, Ord sessionId) => m (Lobby sessionId rep userId m)

newSessionsWithSTM :: (MonadIO m, Ord sessionId) => m (Sessions sessionId userId rep input state terminal m)

newRegistryWithSTM :: (MonadIO m, Ord userId) => m userId -> m (Registry userId user m)

newResultsWithSTM :: (MonadIO m, Ord sessionId) => m (Results sessionId rep userId state extra m)

newComponentsWithSTM :: (MonadIO m, Ord userId, Ord sessionId) => m userId -> m (Components sessionId rep userId user input state extra terminal m)