summaryrefslogtreecommitdiff
path: root/git-annex.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2010-12-08 14:07:49 -0400
committerGravatar Joey Hess <joey@kitenet.net>2010-12-08 14:07:49 -0400
commit2099407d8aa1b1e94f29de0d9094ccfa6e05e471 (patch)
treead1aee35f7f5556cd3784c326732e852ecf23c1d /git-annex.hs
parent627a3014376f83d613c448da929231bb9d866435 (diff)
Add --exclude option to exclude files from processing.
Required some lifting so flags are evaled in the Annex monad before file filtering.
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 417d335e1..1173ab913 100644
--- a/git-annex.hs
+++ b/git-annex.hs
@@ -19,5 +19,5 @@ main = do
args <- getArgs
gitrepo <- Git.repoFromCwd
state <- Annex.new gitrepo allBackends
- (configure, actions) <- parseCmd args state
- tryRun state $ [startup, upgrade] ++ configure ++ actions
+ (actions, state') <- Annex.run state $ parseCmd args
+ tryRun state' $ [startup, upgrade] ++ actions