searchListOfFiles :: ([ByteString] -> (Match,[ByteString])) -> [(FilePath, ByteString)] -> [(FilePath, [Match])]
searchListOfFiles pred files = Prelude.map collectMatches files
  where collectMatches (fp, bs) = (fp, (searchFile pred bs))
searchListOfFiles :: ([ByteString] -> (Match,[ByteString])) -> [(FilePath, ByteString)] -> [(FilePath, [Match])]
searchListOfFiles pred files = Prelude.map collectMatches files
  where collectMatches (fp, bs) = (fp, (searchFile pred bs))
searchListOfFiles pred files = Prelude.map collectMatches files
  where collectMatches (fp, bs) = (fp, (searchFile pred bs))