use upstream persistent

This commit is contained in:
Matt Parsons 2017-10-23 11:16:59 -06:00
parent 397ece45e2
commit 07167f6474
4 changed files with 3 additions and 15 deletions

View File

@ -66,7 +66,7 @@ library
base >= 4.8 && < 5.0
, bytestring
, text >= 0.11 && < 1.3
, persistent >= 2.5 && < 2.8
, persistent >= 2.7.1 && < 2.8
, transformers >= 0.2
, unordered-containers >= 0.2
, tagged >= 0.2

View File

@ -54,19 +54,6 @@ import qualified Data.ByteString as B
import qualified Data.Text as T
import qualified Data.Text.Lazy as TL
class BackendCompatible sup sub where
projectBackend :: sub -> sup
instance BackendCompatible SqlBackend SqlBackend where
projectBackend = id
instance BackendCompatible SqlBackend SqlReadBackend where
projectBackend = unSqlReadBackend
instance BackendCompatible SqlBackend SqlWriteBackend where
projectBackend = unSqlWriteBackend
-- | Finally tagless representation of @esqueleto@'s EDSL.
class (Functor query, Applicative query, Monad query) =>
Esqueleto query expr backend | query -> expr backend, expr -> query backend where

View File

@ -3,4 +3,4 @@ packages:
- '.'
resolver: lts-6.12
extra-deps:
- persistent-2.5
- persistent-2.7.1

View File

@ -7,6 +7,7 @@ packages:
extra-deps:
- doctest-prop-0.2.0.1
- quickcheck-properties-0.1
- persistent-2.7.1
# - http-client-0.5.0
# - fail-4.9.0.0
# - http-types-0.9