diff options
author | sternenseemann <0rpkxez4ksa01gb3typccl0i@systemli.org> | 2020-12-27 02:11:53 +0100 |
---|---|---|
committer | sternenseemann <0rpkxez4ksa01gb3typccl0i@systemli.org> | 2020-12-27 02:11:53 +0100 |
commit | d77bea4869f83144fe897f93964f7f30968ba0ff (patch) | |
tree | c123ef272320da5515e23779640df4642f473122 | |
parent | b7e485d74b4f263c7f1f519622ca8118b9ee16c2 (diff) |
feat(server): inform client about timePerTick
-rw-r--r-- | server/Main.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/server/Main.hs b/server/Main.hs index 6c6a39c..d1f3782 100644 --- a/server/Main.hs +++ b/server/Main.hs @@ -99,9 +99,10 @@ processUpdates svar tickChan netChan = forever $ do TickThreadSendWorld addr -> do world <- use world tick <- use tick + time <- use timePerTick liftIO . atomically . writeTChan netChan - $ NetThreadSendTo addr [GP.NewWorld tick world] + $ NetThreadSendTo addr [GP.TimePerTick time, GP.NewWorld tick world] TickThreadDone t timespec -> do tick %= (+ 1) state <- get |