From b16851705701be534eee93e2ac83b92f38d03874 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 18 Jan 2014 14:58:56 -0400 Subject: Allow --all to be mixed with matching options like --copies and --in (but not --include and --exclude). --- Seek.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'Seek.hs') diff --git a/Seek.hs b/Seek.hs index 4b3281a56..3c84814f5 100644 --- a/Seek.hs +++ b/Seek.hs @@ -158,7 +158,10 @@ withKeyOptions keyop fallbackop params = do go a = do unless (null params) $ error "Cannot mix --all or --unused with file names." - map keyop <$> a + matcher <- Limit.getMatcher + map (process matcher) <$> a + process matcher k = ifM (matcher $ MatchingKey k) + ( keyop k , return Nothing) prepFiltered :: (FilePath -> CommandStart) -> Annex [FilePath] -> Annex [CommandStart] prepFiltered a fs = do -- cgit v1.2.3