lengthen variable names

yesod-core/Yesod/Handler.hs

@@ -753,19 +753,19 @@ lookupSessionBS n = do
     return $ Map.lookup n m
 
 -- | Get all session variables.
-getSession :: GHandler s m SessionMap
+getSession :: GHandler sub master SessionMap
 getSession = liftM ghsSession get
 
 handlerToYAR :: (HasReps a, HasReps b)
-             => m -- ^ master site foundation
+             => master -- ^ master site foundation
-             -> s -- ^ sub site foundation
+             -> sub    -- ^ sub site foundation
-             -> (Route s -> Route m)
+             -> (Route sub -> Route master)
-             -> (Route m -> [(Text, Text)] -> Text)
+             -> (Route master -> [(Text, Text)] -> Text) -- route renderer
-             -> (ErrorResponse -> GHandler s m a)
+             -> (ErrorResponse -> GHandler sub master a)
              -> Request
-             -> Maybe (Route s)
+             -> Maybe (Route sub)
              -> SessionMap
-             -> GHandler s m b
+             -> GHandler sub master b
              -> ResourceT IO YesodAppResult
 handlerToYAR y s toMasterRoute render errorHandler rr murl sessionMap h =
     unYesodApp ya eh' rr types sessionMap

yesod-core/Yesod/Internal/Core.hs

@@ -350,8 +350,8 @@ defaultYesodRunner :: Yesod master
                    -> (Route sub -> Route master)
                    -> Maybe CS.Key
                    -> W.Application
-defaultYesodRunner _ m _ murl toMaster _ req
+defaultYesodRunner _ master _ murl toMaster _ req
-    | maximumContentLength m (fmap toMaster murl) < len =
+    | maximumContentLength master (fmap toMaster murl) < len =
         return $ W.responseLBS
             (H.Status 413 "Too Large")
             [("Content-Type", "text/plain")]
@@ -633,13 +633,13 @@ ynHelper render scripts jscript jsLoc =
 yesodRender :: Yesod y
             => y
             -> Route y
-            -> [(Text, Text)]
+            -> [(Text, Text)] -- ^ url query string
             -> Text
-yesodRender y u qs =
+yesodRender y url params =
     TE.decodeUtf8 $ toByteString $
     fromMaybe
         (joinPath y (approot y) ps
-          $ qs ++ qs')
+          $ params ++ params')
-        (urlRenderOverride y u)
+        (urlRenderOverride y url)
   where
-    (ps, qs') = renderRoute u
+    (ps, params') = renderRoute url