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

2
git-annex.hs
View file

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