simplify evals

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

Remotes.hs

@@ -93,8 +93,7 @@ inAnnex r key = do
 			-- run a local check by making an Annex monad
 			-- using the remote
 			a <- Annex.new r []
-			(result, _) <- Annex.run a (Core.inAnnex key)
+			Annex.eval a (Core.inAnnex key)
-			return result
 		remote = do
 			-- remote check via ssh in and test
 			boolSystem "ssh" [Git.urlHost r, "test -e " ++

git-annex.hs

@@ -40,7 +40,7 @@ tryRun' state errnum (a:as) = do
 	result <- try $ Annex.run state a
 	case (result) of
 		Left err -> do
-			_ <- Annex.run state $ showErr err
+			Annex.eval state $ showErr err
 			tryRun' state (errnum + 1) as
 		Right (True,state') -> tryRun' state' errnum as
 		Right (False,state') -> tryRun' state' (errnum + 1) as