From a3f96d481addd0865164cbb349d62e61971a0007 Mon Sep 17 00:00:00 2001
From: Jeanne-Kamikaze <jeannekamikaze@gmail.com>
Date: Fri, 22 Feb 2013 17:42:15 +0100
Subject: Added subGame functions
---
Spear/Game.hs | 10 ++++++++++
1 file changed, 10 insertions(+)
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
--
cgit v1.2.3