diff options
author | 2010-11-01 03:12:28 -0400 | |
---|---|---|
committer | 2010-11-01 03:12:28 -0400 | |
commit | 4da551827fd0e5a437037b316f60b5a000e447e1 (patch) | |
tree | 50920b5341988dc14c322852ac8de9e039b6a80b | |
parent | 0655ae4b8a4c3b55351a37ddad03bb33a7cc9353 (diff) |
trim
-rw-r--r-- | Core.hs | 5 |
1 files changed, 0 insertions, 5 deletions
@@ -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 |