X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=src%2Flex.dcl;h=df25ea88b54b652632d7fbf49d9df4723a45fffd;hb=0f1c66df34b0f65709756b070884c33b94e6a9ba;hp=2c6f0aaa220b507739d611d0412f229c11a571e4;hpb=4932517e2d12cd55922231175bf2f0a06f5b85d6;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