Make stripHandlerT and subHelper available for public use

yesod-core/Yesod/Core/Dispatch.hs

@@ -30,6 +30,7 @@ module Yesod.Core.Dispatch
     , defaultMiddlewaresNoLogging
       -- * WAI subsites
     , WaiSubsite (..)
+    , subHelper
     ) where
 
 import Prelude hiding (exp)
@@ -69,6 +70,7 @@ import Control.Monad (when)
 import qualified Paths_yesod_core
 import Data.Version (showVersion)
 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
 -- handler. This function will provide no middlewares; if you want commonly

yesod-core/Yesod/Core/Handler.hs

@@ -151,6 +151,7 @@ module Yesod.Core.Handler
       -- * Per-request caching
     , cached
     , cachedBy
+    , stripHandlerT
     ) where
 
 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 Data.Word8 as W8
+import Yesod.Core.Internal.Run (stripHandlerT)
 
 get :: MonadHandler m => m GHState
 get = liftHandlerT $ HandlerT $ I.readIORef . handlerState