diff options
Diffstat (limited to 'HTanks.hs')
-rw-r--r-- | HTanks.hs | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -11,6 +11,7 @@ import GLX import Control.Concurrent (threadDelay) import Control.Monad.State import Data.Maybe +import qualified Data.Map as M import Data.Ratio import qualified Data.Set as S import Data.Time.Clock @@ -39,7 +40,7 @@ main = do when (initialized gl) $ do currentTime <- getCurrentTime let mainState = MainState {run = True, driver = SomeDriver gl, time = currentTime, keyset = S.empty} - gameState = GameState {level = testLevel, tanks = [Tank 0.0 0.0 0 0 2]} + gameState = GameState {level = testLevel, tanks = [Tank 0.0 0.0 0 0 2], textures = M.empty} runGame gameState $ do setup 800 600 |