@@ -18,13 +18,14 @@ import Control.Applicative (liftA, (<*))
18import Control.Monad.State
18import Control.Monad.State
19import System.Console.Readline
19import System.Console.Readline
21lexer :: Token.TokenParser ()
22lexer :: Token.TokenParser ()
22lexer = Token.makeTokenParser tutD
23lexer = Token.makeTokenParser tutD
23 where tutD = emptyDef {
24 where tutD = emptyDef {
24 Token.reservedOpNames = ["join", "where", "union", "group", "ungroup"],
25 Token.reservedOpNames = ["join", "where", "union", "group", "ungroup"],
25 Token.reservedNames = [],
26 Token.reservedNames = [],
26− Token.identStart = letter,
27+ Token.identStart = letter <|> char '_',
27− Token.identLetter = alphaNum}
28+ Token.identLetter = alphaNum <|> char '_'}
29parens = Token.parens lexer
30parens = Token.parens lexer
30reservedOp = Token.reservedOp lexer
31reservedOp = Token.reservedOp lexer