diff --git a/src/Foundation/Yesod/Middleware.hs b/src/Foundation/Yesod/Middleware.hs index f0c078ec7..c39fb9256 100644 --- a/src/Foundation/Yesod/Middleware.hs +++ b/src/Foundation/Yesod/Middleware.hs @@ -137,6 +137,7 @@ yesodMiddleware = cacheControlMiddleware . storeBearerMiddleware . csrfMiddlewar case route of MetricsR -> mzero HealthR -> mzero + StatusR -> mzero InstanceR -> mzero AdminCrontabR -> mzero _other -> return () @@ -147,7 +148,7 @@ yesodMiddleware = cacheControlMiddleware . storeBearerMiddleware . csrfMiddlewar approotHost <- hoistMaybe $ approotScopeHost rApproot app let doRedirect = do url <- approotRender rApproot route - $logDebugS "normalizeApprootMiddleware" url + $logDebugS "normalizeApprootMiddleware redirect" url redirect url if | approotHost /= reqHost , rApproot /= ApprootUserGenerated