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

update to accept latest mtl

Browse source
This commit is contained in:
Jake Wheat 2014-06-20 12:27:23 +03:00
parent 8996230093
commit 7914898cc8
5 changed files with 19 additions and 6 deletions
Language/SQL/SimpleSQL
Parser.lhs

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

@ -832,7 +832,7 @@ together.
> ,orderBy <* closeParen
> <**> (optionMaybe afilter <$$$$> aggAppWithoutDupe)]
> -- no valueExprs: duplicates and order by not allowed
> ,([] <$ closeParen) <**> (window <|> withinGroup <|> pure (flip App))
> ,([] <$ closeParen) <**> option (flip App) (window <|> withinGroup)
> ]
> where
> aggAppWithoutDupeOrd n es f = AggregateApp n SQDefault es [] f