@@ -146,8 +146,13 @@ takeToken lex str
147||| Recognise a digit 0-9
147||| Recognise a digit 0-9
152+||| Recognise one or more digits 0-9
149digits : Lexer
154digits : Lexer
150−digits = some (Pred isDigit)
155+digits = some digit
152||| Recognise a specific string
157||| Recognise a specific string