{-# LANGUAGE MultiParamTypeClasses #-}{-# LANGUAGE RecordWildCards #-}{-# LANGUAGE RankNTypes #-}{-# LANGUAGE FlexibleInstances #-}{-# LANGUAGE TypeFamilies #-}{-# LANGUAGE FlexibleContexts #-}moduleYesod.Core.Class.DispatchwhereimportYesod.Routes.ClassimportqualifiedNetwork.WaiasWimportYesod.Core.TypesimportYesod.Core.ContentimportYesod.Core.Handler(stripHandlerT)importYesod.Core.Class.YesodimportYesod.Core.Class.Handler-- | This class is automatically instantiated when you use the template haskell-- mkYesod function. You should never need to deal with it directly.classYesodsite=>YesodDispatchsitewhereyesodDispatch::YesodRunnerEnvsite->W.ApplicationclassYesodSubDispatchsubmwhereyesodSubDispatch::YesodSubRunnerEnvsub(HandlerSitem)m->W.ApplicationinstanceYesodSubDispatchWaiSubsitemasterwhereyesodSubDispatchYesodSubRunnerEnv{..}=appwhereWaiSubsiteapp=ysreGetSub$yreSiteysreParentEnv-- | A helper function for creating YesodSubDispatch instances, used by the-- internal generated code. This function has been exported since 1.4.11.-- It promotes a subsite handler to a wai application.subHelper::Monadm-- NOTE: This is incredibly similar in type signature to yesodRunner, should probably be pointed out/explained.=>HandlerTchild(HandlerTparentm)TypedContent->YesodSubRunnerEnvchildparent(HandlerTparentm)->Maybe(Routechild)->W.ApplicationsubHelperhandlertYesodSubRunnerEnv{..}route=ysreParentRunnerbaseysreParentEnv(fmapysreToParentRouteroute)wherebase=stripHandlerT(fmaptoTypedContenthandlert)ysreGetSubysreToParentRouteroute