From 979ea1c6d18df4d90697f9c0e0e3f1a14b06b8c1 Mon Sep 17 00:00:00 2001
From: Felipe Lessa <felipe.lessa@gmail.com>
Date: Mon, 3 Sep 2012 23:13:40 -0300
Subject: [PATCH] Write FROM on the queries.

---
 src/Database/Esqueleto/Internal/Sql.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/Database/Esqueleto/Internal/Sql.hs b/src/Database/Esqueleto/Internal/Sql.hs
index c8f0cf5..afbfaf9 100644
--- a/src/Database/Esqueleto/Internal/Sql.hs
+++ b/src/Database/Esqueleto/Internal/Sql.hs
@@ -222,7 +222,8 @@ uncommas' xs =
 
 
 makeFrom :: Escape -> [FromClause] -> TLB.Builder
-makeFrom esc = uncommas . map mk
+makeFrom _   [] = mempty
+makeFrom esc fs = "\nFROM " <> uncommas (map mk fs)
   where
     mk (From (I i) def) = esc (entityDB def) <> (" AS " <> i)