aboutsummaryrefslogtreecommitdiff
path: root/git-annex.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2010-10-14 21:10:59 -0400
committerGravatar Joey Hess <joey@kitenet.net>2010-10-14 21:10:59 -0400
commit29039fdf97f541a1077c9af65ccbe09dd2ae2b28 (patch)
treed46d1c1489422352df166789cf9baeb56132501b /git-annex.hs
parent4c3ad80f320d3c4cccc3e41e4f2364155bae22a1 (diff)
add flags, and change to subcommand style
Diffstat (limited to 'git-annex.hs')
-rw-r--r--git-annex.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/git-annex.hs b/git-annex.hs
index e14739195..cd67242af 100644
--- a/git-annex.hs
+++ b/git-annex.hs
@@ -12,10 +12,10 @@ import qualified GitRepo as Git
main = do
args <- getArgs
- actions <- argvToActions args
+ (flags, actions) <- parseCmd args
gitrepo <- Git.repoFromCwd
state <- new gitrepo
- tryRun state $ [setup] ++ actions ++ [shutdown]
+ tryRun state $ [startup flags] ++ actions ++ [shutdown]
{- Runs a list of Annex actions. Catches exceptions, not stopping
- if some error out, and propigates an overall error status at the end.