@@ -162,6 +162,26 @@ exact str with (unpack str)
162 exact str | (x :: xs)
162 exact str | (x :: xs)
163 = foldl SeqEmpty (is x) (map is xs)
163 = foldl SeqEmpty (is x) (map is xs)
165+||| Recognise an alpha character
170+||| Recognise one or more alpha characters
175+||| Recognise an alphanumeric character
178+alphaNum = pred isAlphaNum
180+||| Recognise one or more alphanumeric characters
183+alphaNums = some alphaNum
165||| Recognise a whitespace character
185||| Recognise a whitespace character
167space : Lexer
187space : Lexer