Cache textures in game state

1 files changed, 5 insertions, 3 deletions

diff --git a/Game.hs b/Game.hs
index ef760d7..9097bca 100644
--- a/Game.hs
+++ b/Game.hs
@@ -7,17 +7,19 @@ module Game ( GameState(..)
 
 import Level
 import Tank
+import Texture
 
 import Control.Monad
 import Control.Monad.State
+import qualified Data.Map as M
 
 
 data GameState = GameState
-    { level   :: !Level
-    , tanks   :: ![Tank]
+    { level    :: !Level
+    , tanks    :: ![Tank]
+    , textures :: !(M.Map Texture TextureObject)
     } deriving (Show)
 
-
 newtype Game a = Game (StateT GameState IO a)
     deriving (Monad, MonadIO, MonadState GameState)