diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-05-27 20:20:20 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-05-27 20:20:20 -0400 |
| commit | 001edb008aee205a4f1885fe5f3335b2e2a47c33 (patch) | |
| tree | f9f9b75695376aec60853ab22b74ca1efa6f2e28 /Command.hs | |
| parent | 224977900d1b9961149b753df33b54d8045448ef (diff) | |
Fix bug in --exclude introduced in 0.20110516.
Diffstat (limited to 'Command.hs')
| -rw-r--r-- | Command.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Command.hs b/Command.hs index abbe897b5..fd49531f4 100644 --- a/Command.hs +++ b/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 [] |