Handle hierarchical module names in External Core tools

[ghc-hetmet.git] / utils / ext-core / Lex.hs

diff --git a/utils/ext-core/Lex.hs b/utils/ext-core/Lex.hs
index 8150b16..991ee0a 100644 (file)
--- 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)