Added subGame functions

1 files changed, 10 insertions, 0 deletions

diff --git a/Spear/Game.hs b/Spear/Game.hs
index 6bb1fa6..cf33ccb 100644
--- a/Spear/Game.hs
+++ b/Spear/Game.hs
@@ -15,6 +15,8 @@ module Spear.Game
     -- * Running and IO
 ,   runGame
 ,   runGame'
+,   runSubGame
+,   runSubGame'
 ,   evalSubGame
 ,   execSubGame
 ,   gameIO
@@ -75,6 +77,14 @@ runGame game state = runErrorT . R.runResourceT . runStateT game $ state
 runGame' :: Game s a -> s -> IO ()
 runGame' game state = runGame game state >> return ()
 
+-- | Run the given game.
+runSubGame :: Game s a -> s -> Game t (a,s)
+runSubGame game state = lift $ runStateT game state
+
+-- | Run the given game.
+runSubGame' :: Game s a -> s -> Game t ()
+runSubGame' game state = runSubGame game state >> return ()
+
 -- | Run the given game and return its result.
 evalSubGame :: Game s a -> s -> Game t a
 evalSubGame g s = lift $ evalStateT g s