From 546da85814945ed2188e670ddf9c2dfd409d6241 Mon Sep 17 00:00:00 2001
From: Matthias Schiffer <matthias@gamezock.de>
Date: Sat, 10 Apr 2010 14:17:08 +0200
Subject: Added player cursor

---
 src/MainLoop.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/MainLoop.hs')

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)
-- 
cgit v1.2.3