Added player cursor

src/HTanks.hs

@@ -36,14 +36,14 @@ main = do
                                           [ --SomePlayer $ DefaultPlayer S.empty 0 0 False
                                             SomePlayer $ wiimotePlayer
                                           , SomePlayer $ CPUPlayer 0
-                                          ]}
+                                          ], textures = M.empty}
              gameState = GameState {level = theLevel, tanks = [ Tank 5.0 5.0 0 0 1.5 270 False 3 1 5 1
                                                               , Tank 5.0 3.5 0 0 1.5 270 False 3 1 5 1
-                                                              ], bullets = [], textures = M.empty}
+                                                              ], bullets = []}
          
-         runGame gameState $ do
+         runGame gameState $ runMain mainState $ do
                             setup
-                            runMain mainState mainLoop
+                            mainLoop
          
          deinitGL gl
 
@@ -56,7 +56,7 @@ mainLoop = do
   t <- gets time
   handleEvents
   
-  lift render
+  render
   
   liftIO $ swapBuffers gl