From c43447185cb01befac2a67b3992b3e188db5f020 Mon Sep 17 00:00:00 2001 From: Alexey Khudyakov Date: Thu, 9 Jun 2011 20:20:38 +0400 Subject: [PATCH] Haddock comments --- Yesod/Persist.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Yesod/Persist.hs b/Yesod/Persist.hs index 0eae7278..d534a1cb 100644 --- a/Yesod/Persist.hs +++ b/Yesod/Persist.hs @@ -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)