X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=utils%2Fext-core%2FLex.hs;h=991ee0ac37d528ba791df5504700515e6f6b925f;hb=2ad4df602e5bb2cff0315b945fa3201749878c30;hp=8150b16fb8a634a14659cba00650bddf25063a2a;hpb=276585028d51a2516a31b91a91a1f4bba5c9f8ba;p=ghc-hetmet.git 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)