Merge pull request #1456 from eborden/eborden/fix-constraints-on-get404

Fix constraints on get404 and getBy404

yesod-persistent/ChangeLog.md

@@ -1,3 +1,7 @@
+## 1.4.3
+
+* Fix overly powerful constraints on get404 and getBy404.
+
 ## 1.4.2
 
 * Fix warnings

yesod-persistent/Yesod/Persist/Core.hs

@@ -134,7 +134,7 @@ respondSourceDB ctype = respondSource ctype . runDBSource
 
 -- | Get the given entity by ID, or return a 404 not found if it doesn't exist.
 #if MIN_VERSION_persistent(2,5,0)
-get404 :: (MonadIO m, PersistStore backend, PersistRecordBackend val backend)
+get404 :: (MonadIO m, PersistStoreRead backend, PersistRecordBackend val backend)
        => Key val
        -> ReaderT backend m val
 #else
@@ -151,7 +151,7 @@ get404 key = do
 -- | Get the given entity by unique key, or return a 404 not found if it doesn't
 --   exist.
 #if MIN_VERSION_persistent(2,5,0)
-getBy404 :: (PersistUnique backend, PersistRecordBackend val backend, MonadIO m)
+getBy404 :: (PersistUniqueRead backend, PersistRecordBackend val backend, MonadIO m)
          => Unique val
          -> ReaderT backend m (Entity val)
 #else

yesod-persistent/yesod-persistent.cabal

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