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

Make stripHandlerT and subHelper available for public use

Browse Source
This commit is contained in:
Andrew Martin 2015-06-05 08:07:37 -04:00
parent b20c19d2c5
commit 92aa58dee5
2 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
yesod-core/Yesod/Core/Dispatch.hs
View File

@ -30,6 +30,7 @@ module Yesod.Core.Dispatch
, defaultMiddlewaresNoLogging , defaultMiddlewaresNoLogging
-- * WAI subsites -- * WAI subsites
, WaiSubsite (..) , WaiSubsite (..)
, subHelper
) where ) where
import Prelude hiding (exp) import Prelude hiding (exp)
@ -69,6 +70,7 @@ import Control.Monad (when)
import qualified Paths_yesod_core import qualified Paths_yesod_core
import Data.Version (showVersion) import Data.Version (showVersion)
import qualified System.Random.MWC as MWC import qualified System.Random.MWC as MWC
import Yesod.Core.Class.Dispatch (subHelper)
-- | Convert the given argument into a WAI application, executable with any WAI -- | Convert the given argument into a WAI application, executable with any WAI
-- handler. This function will provide no middlewares; if you want commonly -- handler. This function will provide no middlewares; if you want commonly

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

@ -151,6 +151,7 @@ module Yesod.Core.Handler
-- * Per-request caching -- * Per-request caching
, cached , cached
, cachedBy , cachedBy
, stripHandlerT
) where ) where
import Data.Time (UTCTime, addUTCTime, import Data.Time (UTCTime, addUTCTime,
@ -217,6 +218,7 @@ import Data.Conduit (Source, transPipe, Flush (Flush), yield, Producer
) )
import qualified Yesod.Core.TypeCache as Cache import qualified Yesod.Core.TypeCache as Cache
import qualified Data.Word8 as W8 import qualified Data.Word8 as W8
import Yesod.Core.Internal.Run (stripHandlerT)
get :: MonadHandler m => m GHState get :: MonadHandler m => m GHState
get = liftHandlerT $ HandlerT $ I.readIORef . handlerState get = liftHandlerT $ HandlerT $ I.readIORef . handlerState