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

better types

Browse source
This commit is contained in:
Joey Hess 2011-01-11 18:13:26 -04:00
parent 196c2fa786
commit 8d6da87eec
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Annex.hs
View file

@ -51,9 +51,9 @@ new gitrepo allbackends = do
Annex.gitRepoChange gitrepo' Annex.gitRepoChange gitrepo'
{- performs an action in the Annex monad -} {- performs an action in the Annex monad -}
run :: AnnexState -> StateT AnnexState IO a -> IO (a, AnnexState) run :: AnnexState -> Annex a -> IO (a, AnnexState)
run state action = runStateT action state run state action = runStateT action state
eval :: AnnexState -> StateT AnnexState IO a -> IO a eval :: AnnexState -> Annex a -> IO a
eval state action = evalStateT action state eval state action = evalStateT action state
{- Returns the git repository being acted on -} {- Returns the git repository being acted on -}