diff options
author | stuebinm | 2024-05-08 22:42:35 +0200 |
---|---|---|
committer | stuebinm | 2024-05-08 22:43:05 +0200 |
commit | ad8a09cafa519a15a22cafbfd2fa289538edc73d (patch) | |
tree | 81f49d19669d5895115a1e8d39bd3557fc0c03d8 /lib/Server/Base.hs | |
parent | 0febc9cd99e0d8b80b1385593e25e7670d5c842b (diff) |
restructure: split up the server module
Diffstat (limited to 'lib/Server/Base.hs')
-rw-r--r-- | lib/Server/Base.hs | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lib/Server/Base.hs b/lib/Server/Base.hs new file mode 100644 index 0000000..14b77ca --- /dev/null +++ b/lib/Server/Base.hs @@ -0,0 +1,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)]) |