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

hlint

Browse source
This commit is contained in:
Jake Wheat 2013-12-17 20:27:11 +02:00
commit e61672ebf8
7 changed files with 26 additions and 13 deletions
Language/SQL/SimpleSQL
Pretty.lhs

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

@ -101,7 +101,7 @@
> scalarExpr (PrefixOp f e) = name f <+> scalarExpr e
> scalarExpr (PostfixOp f e) = scalarExpr e <+> name f
> scalarExpr e@(BinOp _ op _) | op `elem` [(Name "and"), (Name "or")] =
> scalarExpr e@(BinOp _ op _) | op `elem` [Name "and", Name "or"] =
> -- special case for and, or, get all the ands so we can vcat them
> -- nicely
> case ands e of