From 70a7f52055648c6ffdd5e9207e85776f3f1ec685 Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Tue, 9 Aug 2011 14:02:08 +0300 Subject: [PATCH] Changes in Persistent --- yesod-persistent/Yesod/Persist.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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