lib/Server/Base.hs


1
2
3
4
5
6
7
8
9

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