{-| Match one or more whitespace characters

>>> match spaces1 "  "
["  "]
>>> match spaces1 ""
[]
-}
spaces1 :: Pattern Text
spaces1 = plus space
spaces1 :: Pattern Text
spaces1 = plus space
spaces1 = plus space