@@ -18,13 +18,14 @@ import Control.Applicative (liftA, (<*))
1818import Control.Monad.State
1919import System.Console.Readline
2020
21+
2122lexer :: Token.TokenParser ()
2223lexer = Token.makeTokenParser tutD
2324 where tutD = emptyDef {
2425 Token.reservedOpNames = ["join", "where", "union", "group", "ungroup"],
2526 Token.reservedNames = [],
26− Token.identStart = letter,
27− Token.identLetter = alphaNum}
27+ Token.identStart = letter <|> char '_',
28+ Token.identLetter = alphaNum <|> char '_'}
2829
2930parens = Token.parens lexer
3031reservedOp = Token.reservedOp lexer