Lines Matching refs:Yesod
24 import qualified Yesod
128 webAppSessionBackend :: Yesod.Yesod y => y -> IO (Maybe Yesod.SessionBackend)
139 Just . Yesod.clientSessionBackend key . fst
140 <$> Yesod.clientSessionDateCacher timeout
151 …oken :: Yesod.MonadHandler m => Yesod.RenderRoute site => (Yesod.HandlerSite m -> AuthToken) -> Ye…
153 | not (predicate (fst (Yesod.renderRoute r))) = return Yesod.Authorized
155 webapp <- Yesod.getYesod
156 req <- Yesod.getRequest
157 let params = Yesod.reqGetParams req
159 then return Yesod.Authorized
160 else Yesod.sendResponseStatus unauthorized401 ()