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))
}