add a comment

25adfa02 · Simon Marlow · af20907a · 25adfa02
Commit 25adfa02 authored Aug 07, 2006 by Simon Marlow
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 0 deletions

compiler/parser/Lexer.x compiler/parser/Lexer.x +3 -0

No files found.
--- a/compiler/parser/Lexer.x
+++ b/compiler/parser/Lexer.x
@@ -588,6 +588,9 @@ reservedSymsFM = listToUFM $
       ,("→",   ITrarrow,	bit glaExtsBit)
       ,("←",   ITlarrow,	bit glaExtsBit)
       ,("⋯", 	ITdotdot,	bit glaExtsBit)
+        -- ToDo: ideally, → and ∷ should be "specials", so that they cannot
+        -- form part of a large operator.  This would let us have a better
+        -- syntax for kinds: ɑ∷*→* would be a legal kind signature. (maybe).
 #endif
       ]