From 05fbbba86a1e1363d5c03f9b487bbe01d01028b6 Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Sun, 28 Sep 2014 07:05:41 +0300 Subject: [PATCH] Support for persistent 2.0.8 --- esqueleto.cabal | 4 ++-- src/Database/Esqueleto.hs | 2 +- test/Test.hs | 1 + 3 files changed, 4 insertions(+), 3 deletions(-) diff --git a/esqueleto.cabal b/esqueleto.cabal index 54f1283..ff945ec 100644 --- a/esqueleto.cabal +++ b/esqueleto.cabal @@ -1,5 +1,5 @@ name: esqueleto -version: 2.0.2 +version: 2.0.3 synopsis: Type-safe EDSL for SQL queries on persistent backends. homepage: https://github.com/prowdsponsor/esqueleto license: BSD3 @@ -66,7 +66,7 @@ library build-depends: base >= 4.5 && < 4.8 , text >= 0.11 && < 1.2 - , persistent >= 2.0.5 && < 2.1 + , persistent >= 2.0.8 && < 2.1 , transformers >= 0.2 , unordered-containers >= 0.2 , tagged >= 0.2 diff --git a/src/Database/Esqueleto.hs b/src/Database/Esqueleto.hs index aa45254..65c0d80 100644 --- a/src/Database/Esqueleto.hs +++ b/src/Database/Esqueleto.hs @@ -375,7 +375,7 @@ import qualified Database.Persist -- | @valkey i = val (Key (PersistInt64 i))@ -- (). -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)) valkey = val . toSqlKey diff --git a/test/Test.hs b/test/Test.hs index 7921272..bb8e5b6 100644 --- a/test/Test.hs +++ b/test/Test.hs @@ -11,6 +11,7 @@ , TypeFamilies , ScopedTypeVariables , CPP + , TypeSynonymInstances #-} module Main (main) where