X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=utils%2Fext-core%2FLex.hs;h=991ee0ac37d528ba791df5504700515e6f6b925f;hp=8150b16fb8a634a14659cba00650bddf25063a2a;hb=6b085eeada6c3c93599fa4b6d77572abc419c08c;hpb=87c93cf56c83abf0148c91d5972dbe65dc72c38a diff --git a/utils/ext-core/Lex.hs b/utils/ext-core/Lex.hs index 8150b16..991ee0a 100644 --- a/utils/ext-core/Lex.hs +++ b/utils/ext-core/Lex.hs @@ -33,6 +33,7 @@ lexer cont ('/':'\\':cs) = cont TKbiglambda cs lexer cont ('@':cs) = cont TKat cs lexer cont ('?':cs) = cont TKquestion cs lexer cont (';':cs) = cont TKsemicolon cs +lexer cont (':':cs) = cont TKcolon cs lexer cont (c:cs) = failP "invalid character" [c] lexChar cont ('\\':'x':h1:h0:'\'':cs)