From 8d6da87eec87de5317185f7bb8ebf50013e41c11 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 11 Jan 2011 18:13:26 -0400 Subject: [PATCH] better types --- Annex.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Annex.hs b/Annex.hs index 55f9edb36e..765c9191fb 100644 --- a/Annex.hs +++ b/Annex.hs @@ -51,9 +51,9 @@ new gitrepo allbackends = do Annex.gitRepoChange gitrepo' {- 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 -eval :: AnnexState -> StateT AnnexState IO a -> IO a +eval :: AnnexState -> Annex a -> IO a eval state action = evalStateT action state {- Returns the git repository being acted on -}