search.hs

-- |
--
-- >>> parse (search (string "abc")) "test" ""
-- Right []
--
-- >>> parse (search (string "abc")) "test" "   abc   def abc "
-- Right ["abc","abc"]
search ::
  Stream s m Char =>
  ParsecT s u m a
  -> ParsecT s u m [a]
search p =
  let ps = search p
  in  (:) <$> try p <*> ps <|>
      try (anyChar *> ps) <|>
      pure []