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

Merge pull request #1042 from yesodweb/add_getsYesod_function

Browse Source 
Added getsYesod
This commit is contained in:
Andrew Martin 2015-07-23 13:58:33 -04:00
commit 48657022be
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
yesod-core/Yesod/Core/Handler.hs
View File

@ -28,6 +28,7 @@ module Yesod.Core.Handler
HandlerT HandlerT
-- ** Read information from handler -- ** Read information from handler
, getYesod , getYesod
, getsYesod
, getUrlRender , getUrlRender
, getUrlRenderParams , getUrlRenderParams
, getCurrentRoute , getCurrentRoute
@ -291,6 +292,11 @@ askHandlerEnv = liftHandlerT $ HandlerT $ return . handlerEnv
getYesod :: MonadHandler m => m (HandlerSite m) getYesod :: MonadHandler m => m (HandlerSite m)
getYesod = rheSite `liftM` askHandlerEnv getYesod = rheSite `liftM` askHandlerEnv
-- | Get a specific component of the master site application argument.
-- Analogous to the 'gets' function for operating on 'StateT'.
getsYesod :: MonadHandler m => (HandlerSite m -> a) -> m a
getsYesod f = (f . rheSite) `liftM` askHandlerEnv
-- | Get the URL rendering function. -- | Get the URL rendering function.
getUrlRender :: MonadHandler m => m (Route (HandlerSite m) -> Text) getUrlRender :: MonadHandler m => m (Route (HandlerSite m) -> Text)
getUrlRender = do getUrlRender = do