Fix for #74

2014-09-18 08:40:05 +03:00 · 2014-09-18 08:40:05 +03:00 · 2af4aaf37d
commit 2af4aaf37d
parent b1753e2605
1 changed files with 1 additions and 1 deletions
--- 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