simplify evals

1 files changed, 3 insertions, 0 deletions

diff --git a/Annex.hs b/Annex.hs
index 63eef5158..8f60a0bf4 100644
--- a/Annex.hs
+++ b/Annex.hs
@@ -8,6 +8,7 @@
 module Annex (
 	new,
 	run,
+	eval,
 	gitRepo,
 	gitRepoChange,
 	backends,
@@ -50,6 +51,8 @@ new gitrepo allbackends = do
 {- performs an action in the Annex monad -}
 run :: AnnexState -> StateT AnnexState IO a -> IO (a, AnnexState)
 run state action = runStateT (action) state
+eval :: AnnexState -> StateT AnnexState IO a -> IO a
+eval state action = evalStateT (action) state
 
 {- Returns the git repository being acted on -}
 gitRepo :: Annex Git.Repo