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

Fix compatibility with older persistent #1324

Browse Source
This commit is contained in:
Michael Snoyman 2016-12-20 15:21:36 +02:00
parent 8d85ad1ab5
commit 9dbbe030de
3 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
yesod-persistent/ChangeLog.md
View File

@ -1,3 +1,7 @@
## 1.4.1.1
* Fix build failure with older persistent versions [#1324](https://github.com/yesodweb/yesod/issues/1324)
## 1.4.1.0 ## 1.4.1.0
* add `insert400` and `insert400_` * add `insert400` and `insert400_`

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

@ -175,7 +175,7 @@ insert400 :: (MonadIO m, PersistUniqueWrite backend, PersistRecordBackend val ba
=> val => val
-> ReaderT backend m (Key val) -> ReaderT backend m (Key val)
#else #else
insert400 :: (MonadIO m, PersistUniqueWrite (PersistEntityBackend val), PersistEntity val) insert400 :: (MonadIO m, PersistUnique (PersistEntityBackend val), PersistEntity val)
=> val => val
-> ReaderT (PersistEntityBackend val) m (Key val) -> ReaderT (PersistEntityBackend val) m (Key val)
#endif #endif
@ -194,7 +194,7 @@ insert400_ :: (MonadIO m, PersistUniqueWrite backend, PersistRecordBackend val b
=> val => val
-> ReaderT backend m () -> ReaderT backend m ()
#else #else
insert400_ :: (MonadIO m, PersistUniqueWrite (PersistEntityBackend val), PersistEntity val) insert400_ :: (MonadIO m, PersistUnique (PersistEntityBackend val), PersistEntity val)
=> val => val
-> ReaderT (PersistEntityBackend val) m () -> ReaderT (PersistEntityBackend val) m ()
#endif #endif

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

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