path :: FilePath -> Find a a
path p = Find $ \(a, f) -> return [(a, f </> p)]
path :: FilePath -> Find a a
path p = Find $ \(a, f) -> return [(a, f </> p)]
path p = Find $ \(a, f) -> return [(a, f </> p)]