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

Changes in Persistent

Browse Source
This commit is contained in:
Michael Snoyman 2011-08-09 14:02:08 +03:00
parent ccb9bba8cd
commit 70a7f52055
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
yesod-persistent/Yesod/Persist.hs
View File

@ -20,9 +20,9 @@ class YesodPersist y where
runDB :: YesodDB y (GGHandler sub y IO) a -> GHandler sub y a 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. -- | 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) Failure ErrorResponse m, MonadTrans t)
=> Key val -> t m val => Key t val -> t m val
get404 key = do get404 key = do
mres <- get key mres <- get key
case mres of 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 -- | Get the given entity by unique key, or return a 404 not found if it doesn't
-- exist. -- exist.
getBy404 :: (PersistBackend (t m), PersistEntity val, Monad (t m), getBy404 :: (PersistBackend t m, PersistEntity val, Monad (t m),
Failure ErrorResponse m, MonadTrans t) Failure ErrorResponse m, MonadTrans t)
=> Unique val -> t m (Key val, val) => Unique val t -> t m (Key t val, val)
getBy404 key = do getBy404 key = do
mres <- getBy key mres <- getBy key
case mres of case mres of