haskell/esqueleto
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix for #74

Browse Source
This commit is contained in:
Michael Snoyman 2014-09-18 08:40:05 +03:00
parent b1753e2605
commit 2af4aaf37d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Database/Esqueleto/Internal/Sql.hs
View File

@ -970,7 +970,7 @@ instance PersistEntity a => SqlSelect (SqlExpr (Entity a)) (Entity a) where
where where
process ed = uncommas $ process ed = uncommas $
map ((name <>) . fromDBName info) $ map ((name <>) . fromDBName info) $
(entityID ed:) $ (sqlIdName ed:) $
map fieldDB $ map fieldDB $
entityFields ed entityFields ed
-- 'name' is the biggest difference between 'RawSql' and -- 'name' is the biggest difference between 'RawSql' and