From 2af4aaf37d19880c8bd7498928d54c7bf56ecf42 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Thu, 18 Sep 2014 08:40:05 +0300
Subject: [PATCH] Fix for #74

---
 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 153a9d9..894c2f2 100644
--- a/src/Database/Esqueleto/Internal/Sql.hs
+++ b/src/Database/Esqueleto/Internal/Sql.hs
@@ -970,7 +970,7 @@ instance PersistEntity a => SqlSelect (SqlExpr (Entity a)) (Entity a) where
       where
         process ed = uncommas $
                      map ((name <>) . fromDBName info) $
-                     (entityID ed:) $
+                     (sqlIdName ed:) $
                      map fieldDB $
                      entityFields ed
         -- 'name' is the biggest difference between 'RawSql' and