summaryrefslogtreecommitdiffstats
path: root/HTanks.hs
diff options
context:
space:
mode:
Diffstat (limited to 'HTanks.hs')
-rw-r--r--HTanks.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/HTanks.hs b/HTanks.hs
index 27b5755..d0dab4a 100644
--- a/HTanks.hs
+++ b/HTanks.hs
@@ -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