successfully split Annex and AnnexState out of TypeInternals

This commit is contained in:
Joey Hess 2011-01-25 21:49:04 -04:00
parent 109a719b03
commit 082b022f9a
12 changed files with 72 additions and 77 deletions

View file

@ -78,9 +78,9 @@ usage header cmds options =
- (but explicitly thrown errors terminate the whole command).
- Runs shutdown and propigates an overall error status at the end.
-}
tryRun :: AnnexState -> [Annex Bool] -> IO ()
tryRun :: Annex.AnnexState -> [Annex Bool] -> IO ()
tryRun state actions = tryRun' state 0 actions
tryRun' :: AnnexState -> Integer -> [Annex Bool] -> IO ()
tryRun' :: Annex.AnnexState -> Integer -> [Annex Bool] -> IO ()
tryRun' state errnum (a:as) = do
result <- try $ Annex.run state a
case result of