From f6969d59715620b77744224385c4c1521119cf77 Mon Sep 17 00:00:00 2001 From: Felipe Lessa Date: Fri, 17 May 2013 14:23:07 -0300 Subject: [PATCH] Avoid double commas (fixes test suite). --- src/Database/Esqueleto/Internal/Sql.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Database/Esqueleto/Internal/Sql.hs b/src/Database/Esqueleto/Internal/Sql.hs index 54db1bd..2331df8 100644 --- 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