X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=utils%2Fext-core%2FLex.hs;h=991ee0ac37d528ba791df5504700515e6f6b925f;hp=ad9d2eb00f9994c34f193d05662ba87f4a7b9fff;hb=e4417dcd4679da9c6b18c02ff667199c572bed89;hpb=0065d5ab628975892cea1ec7303f968c3338cbe1

diff --git a/utils/ext-core/Lex.hs b/utils/ext-core/Lex.hs
index ad9d2eb..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)
@@ -84,7 +85,7 @@ lexKeyword cont cs =
       ("in",rest) -> cont TKin rest	
       ("case",rest) -> cont TKcase rest	
       ("of",rest) -> cont TKof rest	
-      ("coerce",rest) -> cont TKcoerce rest	
+      ("cast",rest) -> cont TKcast rest	
       ("note",rest) -> cont TKnote rest	
       ("external",rest) -> cont TKexternal rest
       ("_",rest) -> cont TKwild rest