aboutsummaryrefslogtreecommitdiff
path: root/Core.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2010-11-01 03:12:28 -0400
committerGravatar Joey Hess <joey@kitenet.net>2010-11-01 03:12:28 -0400
commit4da551827fd0e5a437037b316f60b5a000e447e1 (patch)
tree50920b5341988dc14c322852ac8de9e039b6a80b /Core.hs
parent0655ae4b8a4c3b55351a37ddad03bb33a7cc9353 (diff)
trim
Diffstat (limited to 'Core.hs')
-rw-r--r--Core.hs5
1 files changed, 0 insertions, 5 deletions
diff --git a/Core.hs b/Core.hs
index d3d0d7899..327a9af48 100644
--- a/Core.hs
+++ b/Core.hs
@@ -27,11 +27,6 @@ import Utility
{- Runs a list of Annex actions. Catches IO errors and continues
- (but explicitly thrown errors terminate the whole command).
- Propigates an overall error status at the end.
- -
- - This runs in the IO monad, not in the Annex monad. It seems that
- - exceptions can only be caught in the IO monad, not in a stacked monad;
- - or more likely I missed an easy way to do it. So, I have to laboriously
- - thread AnnexState through this function.
-}
tryRun :: AnnexState -> [Annex Bool] -> IO ()
tryRun state actions = tryRun' state 0 actions