[project @ 2002-02-11 15:16:25 by simonpj]

[ghc-hetmet.git] / ghc / compiler / parser / Lex.lhs

diff --git a/ghc/compiler/parser/Lex.lhs b/ghc/compiler/parser/Lex.lhs
index 06fe82f..01fcc3b 100644 (file)
--- a/ghc/compiler/parser/Lex.lhs
+++ b/ghc/compiler/parser/Lex.lhs
@@ -183,6 +183,7 @@ data Token
   | ITdarrow
   | ITminus
   | ITbang
+  | ITstar
   | ITdot
 
   | ITbiglam                   -- GHC-extension symbols
@@ -381,6 +382,7 @@ haskellKeySymsFM = listToUFM $
        ,("=>",         ITdarrow)
        ,("-",          ITminus)
        ,("!",          ITbang)
+       ,("*",          ITstar)
        ,(".",          ITdot)          -- sadly, for 'forall a . t'
        ]
 \end{code}