haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Replace call to connPrepare with getStmtConn (fixes #1635)

Browse Source
This commit is contained in:
Michael Snoyman 2019-10-29 13:25:53 +02:00
parent eb9432c01d
commit 7839de4dbd
No known key found for this signature in database
GPG Key ID: 907EAE2F42B52046
3 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
yesod-persistent/ChangeLog.md
View File

@ -1,5 +1,9 @@
# ChangeLog for yesod-persistent # 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 ## 1.6.0.2
* Add support for persistent 2.10 * Add support for persistent 2.10

2
yesod-persistent/Yesod/Persist/Core.hs
View File

@ -103,7 +103,7 @@ defaultGetDBRunner :: YesodPersistBackend site ~ SQL.SqlBackend
#endif #endif
defaultGetDBRunner getPool = do defaultGetDBRunner getPool = do
pool <- fmap getPool getYesod 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 (relKey, (conn, local)) <- allocate
(do (do
(conn, local) <- takeResource pool (conn, local) <- takeResource pool

2
yesod-persistent/yesod-persistent.cabal
View File

@ -1,5 +1,5 @@
name: yesod-persistent name: yesod-persistent
version: 1.6.0.2 version: 1.6.0.3
license: MIT license: MIT
license-file: LICENSE license-file: LICENSE
author: Michael Snoyman <michael@snoyman.com> author: Michael Snoyman <michael@snoyman.com>