module Game.LambdaHack.Common.Response
( Response(..), CliSerQueue, ChanServer(..)
) where
import Prelude ()
import Game.LambdaHack.Common.Prelude
import Control.Concurrent
import Game.LambdaHack.Atomic
import Game.LambdaHack.Common.Actor
import Game.LambdaHack.Common.Request
data Response =
RespUpdAtomic UpdAtomic
| RespQueryAI ActorId
| RespSfxAtomic SfxAtomic
| RespQueryUI
deriving Show
type CliSerQueue = MVar
data ChanServer = ChanServer
{ responseS :: CliSerQueue Response
, requestAIS :: CliSerQueue RequestAI
, requestUIS :: Maybe (CliSerQueue RequestUI)
}