module Server.Base (ServerState) where

import           Control.Concurrent.STM (TQueue, TVar)
import qualified Data.Map               as M
import           Data.UUID              (UUID)
import           Persist                (TrainPing)

type ServerState = TVar (M.Map UUID [TQueue (Maybe TrainPing)])