improve matcher data type to allow matching Keys, instead of just files (no behavior changes)

1 files changed, 1 insertions, 1 deletions

diff --git a/Seek.hs b/Seek.hs
index a4e9a2fe5..4b3281a56 100644
--- a/Seek.hs
+++ b/Seek.hs
@@ -165,7 +165,7 @@ prepFiltered a fs = do
 	matcher <- Limit.getMatcher
 	map (process matcher) <$> fs
   where
-	process matcher f = ifM (matcher $ FileInfo f f)
+	process matcher f = ifM (matcher $ MatchingFile $ FileInfo f f)
 		( a f , return Nothing )
 
 notSymlink :: FilePath -> IO Bool