diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-01-25 21:49:04 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-01-25 21:49:04 -0400 |
| commit | 082b022f9ae56b1446b6607cf7851cd4f1d4f904 (patch) | |
| tree | 4712d36e841bca351c9aa68a911c4fb82188b4c1 /CmdLine.hs | |
| parent | 109a719b03dbeb70eb317be17f7e18567efa9dac (diff) | |
successfully split Annex and AnnexState out of TypeInternals
Diffstat (limited to 'CmdLine.hs')
| -rw-r--r-- | CmdLine.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/CmdLine.hs b/CmdLine.hs index 6772282c5..39dd61e99 100644 --- a/CmdLine.hs +++ b/CmdLine.hs @@ -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 |