esqueleto 2.2.11 → 2.2.12

raw patch · 4 files changed

+12/−2 lines, 4 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

+ Database.Esqueleto: justList :: Esqueleto query expr backend => expr (ValueList typ) -> expr (ValueList (Maybe typ))

+ Database.Esqueleto.Internal.Language: justList :: Esqueleto query expr backend => expr (ValueList typ) -> expr (ValueList (Maybe typ))

Files

esqueleto.cabal +1/−1
src/Database/Esqueleto.hs +1/−1
src/Database/Esqueleto/Internal/Language.hs +7/−0
src/Database/Esqueleto/Internal/Sql.hs +3/−0

esqueleto.cabal view

@@ -1,5 +1,5 @@ name:                esqueleto-version:             2.2.11+version:             2.2.12 synopsis:            Type-safe EDSL for SQL queries on persistent backends. homepage:            https://github.com/prowdsponsor/esqueleto license:             BSD3

src/Database/Esqueleto.hs view

@@ -48,7 +48,7 @@              , min_, max_, sum_, avg_, castNum, castNumM              , coalesce, coalesceDefault              , lower_, like, ilike, (%), concat_, (++.)-             , subList_select, subList_selectDistinct, valList+             , subList_select, subList_selectDistinct, valList, justList              , in_, notIn, exists, notExists              , set, (=.), (+=.), (-=.), (*=.), (/=.)              , case_ )

src/Database/Esqueleto/Internal/Language.hs view

@@ -427,6 +427,13 @@   -- | Lift a list of constant value from Haskell-land to the query.   valList :: PersistField typ => [typ] -> expr (ValueList typ) +  -- | Same as 'just' but for 'ValueList'.  Most of the time you+  -- won't need it, though, because you can use 'just' from+  -- inside 'subList_select' or 'Just' from inside 'valList'.+  --+  -- /Since: 2.2.12/+  justList :: expr (ValueList typ) -> expr (ValueList (Maybe typ))+   -- | @IN@ operator.   in_ :: PersistField typ => expr (Value typ) -> expr (ValueList typ) -> expr (Value Bool)

src/Database/Esqueleto/Internal/Sql.hs view

@@ -496,6 +496,9 @@   valList vals = EList $ ERaw Parens $ const ( uncommas ("?" <$ vals)                                              , map toPersistValue vals ) +  justList EEmptyList = EEmptyList+  justList (EList v)  = EList (just v)+   v `in_`   e = ifNotEmptyList e False $ unsafeSqlBinOp     " IN " v (veryUnsafeCoerceSqlExprValueList e)   v `notIn` e = ifNotEmptyList e True  $ unsafeSqlBinOp " NOT IN " v (veryUnsafeCoerceSqlExprValueList e)