Use IsSqlBackend synonym

src/Database/Esqueleto/Internal/Sql.hs

@@ -9,6 +9,7 @@
            , UndecidableInstances
            , ScopedTypeVariables
            , InstanceSigs
+           , Rank2Types
  #-}
 -- | This is an internal module, anything exported by this module
 -- may change without a major version bump.  Please use only
@@ -873,7 +874,7 @@ runSource src = src C.$$ CL.consume
 
 -- | (Internal) Execute an @esqueleto@ statement inside
 -- @persistent@'s 'SqlPersistT' monad.
-rawEsqueleto :: ( MonadIO m, SqlSelect a r, IsPersistBackend backend, BaseBackend backend ~ SqlBackend)
+rawEsqueleto :: ( MonadIO m, SqlSelect a r, IsSqlBackend backend)
            => Mode
            -> SqlQuery a
            -> R.ReaderT backend m Int64
@@ -962,7 +963,7 @@ builderToText = TL.toStrict . TLB.toLazyTextWith defaultChunkSize
 -- possible but tedious), you may just turn on query logging of
 -- @persistent@.
 toRawSql
-  :: (IsPersistBackend backend, BaseBackend backend ~ SqlBackend, SqlSelect a r)
+  :: (IsSqlBackend backend, SqlSelect a r)
   => Mode -> (backend, IdentState) -> SqlQuery a -> (TLB.Builder, [PersistValue])
 toRawSql mode (conn, firstIdentState) query =
   let ((ret, sd), finalIdentState) =

stack.yaml

@@ -2,6 +2,6 @@ resolver: lts-5.1
 packages:
 - location:
     git: git@github.com:pseudonom/persistent
-    commit: 041eb7346cf5b597d8d6c67dc86dfc55d76acce3
+    commit: 6f403f5cb12351a51491a4ed6d1eccfa40524ebb
   subdirs:
   - persistent