diff options
Diffstat (limited to 'src/HTanks.hs')
-rw-r--r-- | src/HTanks.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/HTanks.hs b/src/HTanks.hs index f018a8c..e02b247 100644 --- a/src/HTanks.hs +++ b/src/HTanks.hs @@ -36,14 +36,14 @@ main = do [ --SomePlayer $ DefaultPlayer S.empty 0 0 False SomePlayer $ wiimotePlayer , SomePlayer $ CPUPlayer 0 - ]} + ], textures = M.empty} gameState = GameState {level = theLevel, tanks = [ Tank 5.0 5.0 0 0 1.5 270 False 3 1 5 1 , Tank 5.0 3.5 0 0 1.5 270 False 3 1 5 1 - ], bullets = [], textures = M.empty} + ], bullets = []} - runGame gameState $ do + runGame gameState $ runMain mainState $ do setup - runMain mainState mainLoop + mainLoop deinitGL gl @@ -56,7 +56,7 @@ mainLoop = do t <- gets time handleEvents - lift render + render liftIO $ swapBuffers gl |