{-| Use this to match the interior of a string

>>> match      "B"  "ABC"
[]
>>> match (has "B") "ABC"
["B"]
-}
has :: Pattern a -> Pattern a
has p = chars *> p <* chars
has :: Pattern a -> Pattern a
has p = chars *> p <* chars
has p = chars *> p <* chars