You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
18 lines
402 B
18 lines
402 B
2 years ago
|
{-# LANGUAGE OverloadedStrings #-}
|
||
|
module State.MainGame.Update where
|
||
|
|
||
|
import Affection
|
||
|
|
||
|
import Control.Monad (when)
|
||
|
|
||
|
import Control.Concurrent.STM
|
||
|
|
||
|
-- internal imports
|
||
|
|
||
|
import Types
|
||
|
|
||
|
mainGameUpdate :: GameData -> Double -> Affection ()
|
||
|
mainGameUpdate gd dt = do
|
||
|
progress <- liftIO $ atomically $ readTMVar (gameStateLoadProgress gd)
|
||
|
when (fst progress < 1) $ liftIO $ logIO Verbose (snd progress)
|