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/Game.hs
View file

@ -8,12 +8,10 @@ module Game ( Bullet(..)
import Level
import Tank
import Texture
import Control.Monad
import Control.Monad.State
import Data.Fixed
import qualified Data.Map as M
data Bullet = Bullet
@ -29,7 +27,6 @@ data GameState = GameState
{ level :: !Level
, tanks :: ![Tank]
, bullets :: ![Bullet]
, textures :: !(M.Map Texture TextureObject)
} deriving (Show)
newtype Game a = Game (StateT GameState IO a)