Fix bug in --exclude introduced in 0.20110516.

Command.hs

@@ -191,7 +191,7 @@ filterFiles l = do
 		else return $ filter (notExcluded $ wildsRegex exclude) l'
 	where
 		notState f = not $ stateDir `isPrefixOf` f
-		notExcluded r f = isJust $ match r f []
+		notExcluded r f = isNothing $ match r f []
 
 wildsRegex :: [String] -> Regex
 wildsRegex ws = compile regex []

debian/changelog

@@ -2,6 +2,7 @@ git-annex (0.20110522) UNRELEASED; urgency=low
 
   * Closer emulation of git's behavior when told to use "foo/.git" as a
     git repository instead of just "foo". Closes: #627563
+  * Fix bug in --exclude introduced in 0.20110516.
 
  -- Joey Hess <joeyh@debian.org>  Sun, 22 May 2011 14:03:42 -0400