starlitcanopy/simple-sql-parser
1
Fork 0
Code Activity

refactor the interval literal parser to not use try

Browse source
This commit is contained in:
Jake Wheat 2014-04-17 20:53:16 +03:00
parent 556f65ee22
commit d202458808
1 changed files with 8 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
Language/SQL/SimpleSQL/Parser.lhs
View file

@ -114,11 +114,14 @@ interval '3 days'
which parses as a typed literal which parses as a typed literal
> interval :: Parser ValueExpr > interval :: Parser ValueExpr
> interval = try (keyword_ "interval" >> > interval = keyword_ "interval" >>
> IntervalLit > mkIt <$> stringToken
> <$> stringToken > <*> optionMaybe
> <*> identifierBlacklist blacklist > ((,) <$> identifierBlacklist blacklist
> <*> optionMaybe (parens integer)) > <*> optionMaybe (parens integer))
> where
> mkIt val Nothing = TypedLit (TypeName "interval") val
> mkIt val (Just (a,b)) = IntervalLit val a b
> literal :: Parser ValueExpr > literal :: Parser ValueExpr
> literal = number <|> stringValue <|> interval > literal = number <|> stringValue <|> interval