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

tidyups

Browse source
This commit is contained in:
Jake Wheat 2013-12-13 22:25:22 +02:00
parent b14af47773
commit a001d120c1
5 changed files with 12 additions and 17 deletions
Language/SQL/SimpleSQL
Pretty.lhs

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

@ -44,8 +44,8 @@ back into SQL source text. It attempts to format the output nicely.
> sep [scalarExpr e0, text f, scalarExpr e1]
> scalarExpr (Case t ws els) =
> sep [text "case" <+> (maybe empty scalarExpr t)
> ,nest 4 (sep ((map w ws)
> sep [text "case" <+> maybe empty scalarExpr t
> ,nest 4 (sep (map w ws
> ++ maybeToList (fmap e els)))
> ,text "end"]
> where