[project @ 2006-01-11 12:17:41 by simonmar]

[ghc-hetmet.git] / ghc / compiler / parser / Lexer.x

diff --git a/ghc/compiler/parser/Lexer.x b/ghc/compiler/parser/Lexer.x
index be8dadd..27b6e2d 100644 (file)
--- a/ghc/compiler/parser/Lexer.x
+++ b/ghc/compiler/parser/Lexer.x
@@ -559,6 +559,7 @@ reservedSymsFM = listToUFM $
        ,(">>-",        ITRarrowtail,   bit arrowsBit)
 
 #if __GLASGOW_HASKELL__ >= 605
+       ,("λ", ITlam,          0)
        ,("∀",        ITforall,       bit tvBit)
        ,("→",   ITrarrow,    0)
        ,("←",   ITlarrow,    0)
@@ -1381,6 +1382,10 @@ lexToken = do
        span `seq` setLastToken span bytes
        t span buf bytes
 
+-- ToDo: Alex reports the buffer at the start of the erroneous lexeme,
+-- but it would be more informative to report the location where the
+-- error was actually discovered, especially if this is a decoding
+-- error.
 reportLexError loc1 loc2 buf str = 
   let 
        c = fst (nextChar buf)