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

allow returning custom id columns from queries if they're not composite

Browse Source
This commit is contained in:
Alberto Valverde 2015-04-01 19:06:10 +02:00
parent 12a2d2de2b
commit 48cae5396e
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1093,7 +1093,10 @@ instance PersistEntity a => SqlSelect (SqlExpr (Maybe (Entity a))) (Maybe (Entit
instance PersistField a => SqlSelect (SqlExpr (Value a)) (Value a) where instance PersistField a => SqlSelect (SqlExpr (Value a)) (Value a) where
sqlSelectCols info (ERaw p f) = let (b, vals) = f info sqlSelectCols info (ERaw p f) = let (b, vals) = f info
in (parensM p b, vals) in (parensM p b, vals)
sqlSelectCols _ (ERawList _) = unexpectedCompositeKeyError sqlSelectCols info (ERawList f) = let (b, vals) = f info
in case b of
[b'] -> (parensM Parens b', vals)
_ -> unexpectedCompositeKeyError
sqlSelectColCount = const 1 sqlSelectColCount = const 1
sqlSelectProcessRow [pv] = Value <$> fromPersistValue pv sqlSelectProcessRow [pv] = Value <$> fromPersistValue pv
sqlSelectProcessRow _ = Left "SqlSelect (Value a): wrong number of columns." sqlSelectProcessRow _ = Left "SqlSelect (Value a): wrong number of columns."