diff options
author | Matthias Schiffer <matthias@gamezock.de> | 2010-04-10 14:17:08 +0200 |
---|---|---|
committer | Matthias Schiffer <matthias@gamezock.de> | 2010-04-10 14:17:08 +0200 |
commit | 546da85814945ed2188e670ddf9c2dfd409d6241 (patch) | |
tree | 266627f8d0de15a5507ebb441e8ad9091be10510 /src/MainLoop.hs | |
parent | 083619cc87aa24b6ad32b92cf40798efc11d4ff9 (diff) | |
download | htanks-546da85814945ed2188e670ddf9c2dfd409d6241.tar htanks-546da85814945ed2188e670ddf9c2dfd409d6241.zip |
Added player cursor
Diffstat (limited to 'src/MainLoop.hs')
-rw-r--r-- | src/MainLoop.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/MainLoop.hs b/src/MainLoop.hs index 94b5e9d..0ebaa53 100644 --- a/src/MainLoop.hs +++ b/src/MainLoop.hs @@ -9,10 +9,12 @@ module MainLoop ( MainState(..) import Game import GLDriver import Player +import Texture import Control.Monad.State import Control.Monad.Trans import Data.Time +import qualified Data.Map as M data MainState = MainState @@ -20,6 +22,7 @@ data MainState = MainState , driver :: !SomeDriver , time :: !UTCTime , players :: ![SomePlayer] + , textures :: !(M.Map Texture TextureObject) } newtype MainT m a = MainT (StateT MainState m a) |