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

hlint

Browse source
This commit is contained in:
Jake Wheat 2013-12-31 11:44:10 +02:00
parent 7cf5275615
commit 9e75fa9365
3 changed files with 4 additions and 7 deletions
Language/SQL/SimpleSQL
Pretty.lhs

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

@ -92,7 +92,7 @@
> valueExpr (SpecialOpK nm fs as) =
> name nm <> parens (sep $ catMaybes
> ((fmap valueExpr fs)
> (fmap valueExpr fs
> : map (\(n,e) -> Just (text n <+> valueExpr e)) as))
> valueExpr (PrefixOp f e) = name f <+> valueExpr e