Removed IO from Game monad

1 files changed, 7 insertions, 7 deletions

diff --git a/src/HTanks.hs b/src/HTanks.hs
index 2fcdb66..5a8bdec 100644
--- a/src/HTanks.hs
+++ b/src/HTanks.hs
@@ -32,16 +32,16 @@ main = do
   
   when (initialized gl) $ do
          currentTime <- getCurrentTime
-         let mainState = MainState {run = True, driver = SomeDriver gl, time = currentTime, players =
+         let 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 = []}
+             mainstate = MainState {run = True, driver = SomeDriver gl, time = currentTime, players =
                                           [ --SomePlayer $ DefaultPlayer S.empty 0 0 False
                                             SomePlayer $ hwiidPlayer
                                           , 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 = []}
-         
-         runGame gameState $ runMain mainState $ do
+                                          ], textures = M.empty, gameState = gamestate}
+             
+         runMain mainstate $ do
                             setup
                             mainLoop