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

getBy404

Browse Source
This commit is contained in:
Michael Snoyman 2010-12-20 19:00:30 +02:00
parent 676a6aa6c1
commit 05fde1f464
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Yesod/Yesod.hs
View File

@ -15,6 +15,7 @@ module Yesod.Yesod
, YesodPersist (..) , YesodPersist (..)
, module Database.Persist , module Database.Persist
, get404 , get404
, getBy404
-- ** Breadcrumbs -- ** Breadcrumbs
, YesodBreadcrumbs (..) , YesodBreadcrumbs (..)
, breadcrumbs , breadcrumbs
@ -392,6 +393,15 @@ get404 key = do
Nothing -> lift notFound Nothing -> lift notFound
Just res -> return res Just res -> return res
getBy404 :: (PersistBackend (t m), PersistEntity val, Monad (t m),
Failure ErrorResponse m, MonadTrans t)
=> Unique val -> t m (Key val, val)
getBy404 ukey = do
mres <- getBy ukey
case mres of
Nothing -> lift notFound
Just res -> return res
-- | Return the same URL if the user is authorized to see it. -- | Return the same URL if the user is authorized to see it.
-- --
-- Built on top of 'isAuthorized'. This is useful for building page that only -- Built on top of 'isAuthorized'. This is useful for building page that only