Preferred content path matching bugfix.

When in a subdir, both the normal filepath, and the filepath relative to
the top of the git repo are needed for matching. The former for key lookup,
and the latter for include/exclude to match against. Previously, key lookup
didn't work in this situation.

Seek.hs

@@ -113,7 +113,7 @@ prepFiltered a fs = do
 	map (process matcher) <$> fs
 	where
 		process matcher f = do
-			ok <- matcher f
+			ok <- matcher $ Annex.FileInfo f f
 			if ok then a f else return Nothing
 
 notSymlink :: FilePath -> IO Bool