From 7839de4dbddc22b1ac87a92e01cb09afa2907136 Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Tue, 29 Oct 2019 13:25:53 +0200 Subject: [PATCH] Replace call to connPrepare with getStmtConn (fixes #1635) --- yesod-persistent/ChangeLog.md | 4 ++++ yesod-persistent/Yesod/Persist/Core.hs | 2 +- yesod-persistent/yesod-persistent.cabal | 2 +- 3 files changed, 6 insertions(+), 2 deletions(-) diff --git a/yesod-persistent/ChangeLog.md b/yesod-persistent/ChangeLog.md index 735522a0..7c2a3b19 100644 --- a/yesod-persistent/ChangeLog.md +++ b/yesod-persistent/ChangeLog.md @@ -1,5 +1,9 @@ # ChangeLog for yesod-persistent +## 1.6.0.3 + +* Replace call to `connPrepare` with `getStmtConn`. [#1635](https://github.com/yesodweb/yesod/issues/1635) + ## 1.6.0.2 * Add support for persistent 2.10 diff --git a/yesod-persistent/Yesod/Persist/Core.hs b/yesod-persistent/Yesod/Persist/Core.hs index 4467c2cb..2e450366 100644 --- a/yesod-persistent/Yesod/Persist/Core.hs +++ b/yesod-persistent/Yesod/Persist/Core.hs @@ -103,7 +103,7 @@ defaultGetDBRunner :: YesodPersistBackend site ~ SQL.SqlBackend #endif defaultGetDBRunner getPool = do pool <- fmap getPool getYesod - let withPrep conn f = f (persistBackend conn) (SQL.connPrepare $ persistBackend conn) + let withPrep conn f = f (persistBackend conn) (SQL.getStmtConn $ persistBackend conn) (relKey, (conn, local)) <- allocate (do (conn, local) <- takeResource pool diff --git a/yesod-persistent/yesod-persistent.cabal b/yesod-persistent/yesod-persistent.cabal index 285129de..c46d444a 100644 --- a/yesod-persistent/yesod-persistent.cabal +++ b/yesod-persistent/yesod-persistent.cabal @@ -1,5 +1,5 @@ name: yesod-persistent -version: 1.6.0.2 +version: 1.6.0.3 license: MIT license-file: LICENSE author: Michael Snoyman