module Game.LambdaHack.Server.Action.ActionClass where
import Game.LambdaHack.Common.Action
import Game.LambdaHack.Common.ClientCmd
import Game.LambdaHack.Server.State
class MonadActionRO m => MonadServer m where
getServer :: m StateServer
getsServer :: (StateServer -> a) -> m a
modifyServer :: (StateServer -> StateServer) -> m ()
putServer :: StateServer -> m ()
liftIO :: IO a -> m a
saveServer :: m ()
class MonadServer m => MonadConnServer m where
getDict :: m ConnServerDict
getsDict :: (ConnServerDict -> a) -> m a
modifyDict :: (ConnServerDict -> ConnServerDict) -> m ()
putDict :: ConnServerDict -> m ()
saveName :: String
saveName = serverSaveName