From 2099407d8aa1b1e94f29de0d9094ccfa6e05e471 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Wed, 8 Dec 2010 14:07:49 -0400
Subject: Add --exclude option to exclude files from processing.

Required some lifting so flags are evaled in the Annex monad before
file filtering.
---
 git-annex.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'git-annex.hs')

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
-- 
cgit v1.2.3