1 files changed, 0 insertions, 8 deletions
diff --git a/src/Game.hs b/src/Game.hs
index 59d67aa..5af2ad2 100644
--- a/src/Game.hs
+++ b/src/Game.hs
@@ -2,8 +2,6 @@
 
 module Game ( Bullet(..)
             , GameState(..)
-            , Game
-            , runGame
             ) where
 
 import Level
@@ -28,9 +26,3 @@ data GameState = GameState
     , tanks    :: ![Tank]
     , bullets  :: ![Bullet]
     } deriving (Show)
-
-newtype Game a = Game (State GameState a)
-    deriving (Monad, MonadState GameState)
-
-runGame :: GameState -> Game a -> (a, GameState)
-runGame st (Game a) = runState a st