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

renames OrderField->SortSpec, InThing->InPredValue

Browse source
This commit is contained in:
Jake Wheat 2013-12-18 16:27:06 +02:00
parent b89f2a011c
commit b631497a04
8 changed files with 40 additions and 40 deletions
Language/SQL/SimpleSQL
Pretty.lhs

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

@ -266,12 +266,12 @@
> ge (Rollup es) = text "rollup" <> parens (commaSep $ map ge es)
> ge (GroupingSets es) = text "grouping sets" <> parens (commaSep $ map ge es)
> orderBy :: [OrderField] -> Doc
> orderBy :: [SortSpec] -> Doc
> orderBy [] = empty
> orderBy os = sep [text "order by"
> ,nest 9 $ commaSep $ map f os]
> where
> f (OrderField e d n) =
> f (SortSpec e d n) =
> scalarExpr e
> <+> (if d == Asc then empty else text "desc")
> <+> (case n of