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

Haddock comments

Browse Source
This commit is contained in:
Alexey Khudyakov 2011-06-09 20:20:38 +04:00
parent 8f636e5be0
commit c43447185c
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Yesod/Persist.hs
View File

@ -19,7 +19,7 @@ class YesodPersist y where
type YesodDB y :: (* -> *) -> * -> *
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),
Failure ErrorResponse m, MonadTrans t)
=> Key val -> t m val
@ -29,8 +29,8 @@ get404 key = do
Nothing -> lift notFound
Just res -> return res
-- Get the given entity by unique key, or return a 404 not found if it doesn't
-- exist.
-- | 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),
Failure ErrorResponse m, MonadTrans t)
=> Unique val -> t m (Key val, val)