Avoid double commas (fixes test suite).

2013-05-17 14:23:07 -03:00 · 2013-05-17 14:23:07 -03:00 · f6969d5971
commit f6969d5971
parent fee867165b
1 changed files with 1 additions and 1 deletions
--- a/src/Database/Esqueleto/Internal/Sql.hs
+++ b/src/Database/Esqueleto/Internal/Sql.hs
@ -700,7 +700,7 @@ data Mode = SELECT | SELECT_DISTINCT | DELETE | UPDATE


 uncommas :: [TLB.Builder] -> TLB.Builder
-uncommas = mconcat . intersperse ", "
+uncommas = mconcat . intersperse ", " . filter (/= mempty)

 uncommas' :: Monoid a => [(TLB.Builder, a)] -> (TLB.Builder, a)
 uncommas' = (uncommas *** mconcat) . unzip