matches :: (FilePath -> Bool) -> Find a a
matches p = star >>> match (p . takeFileName)
matches :: (FilePath -> Bool) -> Find a a
matches p = star >>> match (p . takeFileName)
matches p = star >>> match (p . takeFileName)