diff --git a/yesod-persistent/Yesod/Persist.hs b/yesod-persistent/Yesod/Persist.hs
index d534a1cb..7c7504d5 100644
--- a/yesod-persistent/Yesod/Persist.hs
+++ b/yesod-persistent/Yesod/Persist.hs
@@ -20,9 +20,9 @@ class YesodPersist y where
     runDB :: YesodDB y (GGHandler sub y IO) a -> GHandler sub y a
 
 -- | Get the given entity by ID, or return a 404 not found if it doesn't exist.
-get404 :: (PersistBackend (t m), PersistEntity val, Monad (t m),
+get404 :: (PersistBackend t m, PersistEntity val, Monad (t m),
            Failure ErrorResponse m, MonadTrans t)
-       => Key val -> t m val
+       => Key t val -> t m val
 get404 key = do
     mres <- get key
     case mres of
@@ -31,9 +31,9 @@ get404 key = do
 
 -- | Get the given entity by unique key, or return a 404 not found if it doesn't
 --   exist.
-getBy404 :: (PersistBackend (t m), PersistEntity val, Monad (t m),
+getBy404 :: (PersistBackend t m, PersistEntity val, Monad (t m),
              Failure ErrorResponse m, MonadTrans t)
-         => Unique val -> t m (Key val, val)
+         => Unique val t -> t m (Key t val, val)
 getBy404 key = do
     mres <- getBy key
     case mres of