mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

simplify evals

Browse source
This commit is contained in:
Joey Hess 2010-10-31 23:24:16 -04:00
parent f3e4633e35
commit 00d4c7cd01
3 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Annex.hs
View file

@ -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