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=e4417dcd4679da9c6b18c02ff667199c572bed89;hpb=276585028d51a2516a31b91a91a1f4bba5c9f8ba 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)