comment
This commit is contained in:
parent
a0c0136056
commit
1d628ff238
2 changed files with 2 additions and 5 deletions
|
@ -1,8 +1,6 @@
|
||||||
{- git-annex command line -}
|
{- git-annex command line -}
|
||||||
|
|
||||||
module Commands (
|
module Commands (argvToActions) where
|
||||||
argvToActions
|
|
||||||
) where
|
|
||||||
|
|
||||||
import System.Console.GetOpt
|
import System.Console.GetOpt
|
||||||
import Control.Monad.State (liftIO)
|
import Control.Monad.State (liftIO)
|
||||||
|
|
|
@ -14,8 +14,7 @@ main = do
|
||||||
state <- start
|
state <- start
|
||||||
tryRun state actions
|
tryRun state actions
|
||||||
|
|
||||||
{- Processes each param in the list by dispatching the handler function
|
{- Runs a list of Annex actions. Catches exceptions, not stopping
|
||||||
- for the user-selection operation mode. Catches exceptions, not stopping
|
|
||||||
- if some error out, and propigates an overall error status at the end.
|
- if some error out, and propigates an overall error status at the end.
|
||||||
-
|
-
|
||||||
- This runs in the IO monad, not in the Annex monad. It seems that
|
- This runs in the IO monad, not in the Annex monad. It seems that
|
||||||
|
|
Loading…
Reference in a new issue