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

change pretty printer to output 'fetch first' instead of 'fetch next'

Browse source
This commit is contained in:
Jake Wheat 2013-12-19 12:54:48 +02:00
parent 692f8f84ad
commit df7e6f87da
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -178,7 +178,7 @@
> ,maybeValueExpr "having" hv > ,maybeValueExpr "having" hv
> ,orderBy od > ,orderBy od
> ,maybe empty (\e -> text "offset" <+> valueExpr e <+> text "rows") off > ,maybe empty (\e -> text "offset" <+> valueExpr e <+> text "rows") off
> ,maybe empty (\e -> text "fetch next" <+> valueExpr e > ,maybe empty (\e -> text "fetch first" <+> valueExpr e
> <+> text "rows only") fe > <+> text "rows only") fe
> ] > ]
> queryExpr (CombineQueryExpr q1 ct d c q2) = > queryExpr (CombineQueryExpr q1 ct d c q2) =