small platformer game
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

{-# 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)