X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=src%2Flex.dcl;h=df25ea88b54b652632d7fbf49d9df4723a45fffd;hb=eb91d7c6b2010be6a43de0a978373654ba3deacc;hp=2c6f0aaa220b507739d611d0412f229c11a571e4;hpb=e4603fe257568bbc124d95dd88ea3b85dcccfa00;p=cc1516.git diff --git a/src/lex.dcl b/src/lex.dcl index 2c6f0aa..df25ea8 100644 --- a/src/lex.dcl +++ b/src/lex.dcl @@ -2,10 +2,10 @@ definition module lex from Data.Either import :: Either -:: Token :== (Int, TokenValue) +:: Token :== (Int, Int, TokenValue) :: TokenValue //Value tokens - = IdentToken [Char] // Identifier + = IdentToken String // Identifier | NumberToken Int // Integer | CharToken Char // Character literal //Keyword tokens