diff --git a/test/MySQL/Test.hs b/test/MySQL/Test.hs index 0b3a53c..3cfd89d 100644 --- a/test/MySQL/Test.hs +++ b/test/MySQL/Test.hs @@ -131,11 +131,11 @@ testMysqlUpdate = do nameContains :: (BaseBackend backend ~ SqlBackend, BackendCompatible SqlBackend backend, - Esqueleto query expr backend, MonadIO m, SqlString s, + MonadIO m, SqlString s, IsPersistBackend backend, PersistQueryRead backend, PersistUniqueRead backend) => (SqlExpr (Value [Char]) - -> expr (Value s) + -> SqlExpr (Value s) -> SqlExpr (Value Bool)) -> s -> [Entity Person] diff --git a/test/PostgreSQL/Test.hs b/test/PostgreSQL/Test.hs index 2f909f9..27510bf 100644 --- a/test/PostgreSQL/Test.hs +++ b/test/PostgreSQL/Test.hs @@ -48,11 +48,11 @@ testPostgresqlCoalesce = do nameContains :: (BaseBackend backend ~ SqlBackend, BackendCompatible SqlBackend backend, - Esqueleto query expr backend, MonadIO m, SqlString s, + MonadIO m, SqlString s, IsPersistBackend backend, PersistQueryRead backend, PersistUniqueRead backend) => (SqlExpr (Value [Char]) - -> expr (Value s) + -> SqlExpr (Value s) -> SqlExpr (Value Bool)) -> s -> [Entity Person] diff --git a/test/SQLite/Test.hs b/test/SQLite/Test.hs index b3982ab..0413a20 100644 --- a/test/SQLite/Test.hs +++ b/test/SQLite/Test.hs @@ -132,11 +132,11 @@ testSqliteUpdate = do nameContains :: (BaseBackend backend ~ SqlBackend, BackendCompatible SqlBackend backend, - Esqueleto query expr backend, MonadIO m, SqlString s, + MonadIO m, SqlString s, IsPersistBackend backend, PersistQueryRead backend, PersistUniqueRead backend) => (SqlExpr (Value [Char]) - -> expr (Value s) + -> SqlExpr (Value s) -> SqlExpr (Value Bool)) -> s -> [Entity Person]