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

Support for persistent 2.0.8

Browse Source
This commit is contained in:
Michael Snoyman 2014-09-28 07:05:41 +03:00
parent 17a517f321
commit 05fbbba86a
3 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
esqueleto.cabal
View File

@ -1,5 +1,5 @@
name: esqueleto name: esqueleto
version: 2.0.2 version: 2.0.3
synopsis: Type-safe EDSL for SQL queries on persistent backends. synopsis: Type-safe EDSL for SQL queries on persistent backends.
homepage: https://github.com/prowdsponsor/esqueleto homepage: https://github.com/prowdsponsor/esqueleto
license: BSD3 license: BSD3
@ -66,7 +66,7 @@ library
build-depends: build-depends:
base >= 4.5 && < 4.8 base >= 4.5 && < 4.8
, text >= 0.11 && < 1.2 , text >= 0.11 && < 1.2
, persistent >= 2.0.5 && < 2.1 , persistent >= 2.0.8 && < 2.1
, transformers >= 0.2 , transformers >= 0.2
, unordered-containers >= 0.2 , unordered-containers >= 0.2
, tagged >= 0.2 , tagged >= 0.2

2
src/Database/Esqueleto.hs
View File

@ -375,7 +375,7 @@ import qualified Database.Persist
-- | @valkey i = val (Key (PersistInt64 i))@ -- | @valkey i = val (Key (PersistInt64 i))@
-- (<https://github.com/meteficha/esqueleto/issues/9>). -- (<https://github.com/meteficha/esqueleto/issues/9>).
valkey :: (Esqueleto query expr backend, IsSqlKey (Key entity), PersistField (Key entity)) => valkey :: (Esqueleto query expr backend, ToBackendKey SqlBackend entity, PersistField (Key entity)) =>
Int64 -> expr (Value (Key entity)) Int64 -> expr (Value (Key entity))
valkey = val . toSqlKey valkey = val . toSqlKey

1
test/Test.hs
View File

@ -11,6 +11,7 @@
, TypeFamilies , TypeFamilies
, ScopedTypeVariables , ScopedTypeVariables
, CPP , CPP
, TypeSynonymInstances
#-} #-}
module Main (main) where module Main (main) where