successfully split Annex and AnnexState out of TypeInternals
This commit is contained in:
parent
109a719b03
commit
082b022f9a
12 changed files with 72 additions and 77 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue