1
Fork 0

add directions to order by

This commit is contained in:
Jake Wheat 2013-12-13 17:08:10 +02:00
parent 2c1eedb70f
commit 1a8551825d
5 changed files with 27 additions and 10 deletions
Language/SQL/SimpleSQL

View file

@ -111,10 +111,13 @@ back into SQL source text. It attempts to format the output nicely.
> having = maybe empty
> (\w -> sep [text "having"
> ,nest 4 $ scalarExpr w])
> orderBy :: [ScalarExpr] -> Doc
> orderBy :: [(ScalarExpr,Direction)] -> Doc
> orderBy [] = empty
> orderBy os = sep [text "order by"
> ,nest 4 $ commaSep $ map scalarExpr os]
> ,nest 4 $ commaSep $ map f os]
> where
> f (e,Asc) = scalarExpr e
> f (e,Desc) = scalarExpr e <+> text "desc"
= utils