diff options
Diffstat (limited to 'Game.hs')
-rw-r--r-- | Game.hs | 8 |
1 files changed, 5 insertions, 3 deletions
@@ -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) |