Merge pull request #75 from snoyberg/master

Fix for #74
2014-09-18 11:49:20 -03:00 · 2014-09-18 11:49:20 -03:00 · 87288f9603
commit 87288f9603
parent b1753e2605 2af4aaf37d
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