neocturne/htanks
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added player cursor

Browse source
This commit is contained in:
Matthias Schiffer 2010-04-10 14:17:08 +02:00
parent 083619cc87
commit 546da85814
8 changed files with 60 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/MainLoop.hs
View file

@ -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)