match :: Pattern a -> Text -> [a]
match p = evalStateT (runPattern (p <* eof))
match :: Pattern a -> Text -> [a]
match p = evalStateT (runPattern (p <* eof))
match p = evalStateT (runPattern (p <* eof))