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

Merge pull request #2 from Shimuuar/master

Browse Source 
Haddock comments
This commit is contained in:
Michael Snoyman 2011-06-09 22:06:10 -07:00
commit acbc1db354
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)