fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix(status): route status exempt from approot normalisation, might not fix the issue yet

Browse Source
This commit is contained in:
Steffen Jost 2021-12-08 16:34:55 +01:00
parent 1c5dc74edf
commit 074a33dc51
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Foundation/Yesod/Middleware.hs
View File

@ -137,6 +137,7 @@ yesodMiddleware = cacheControlMiddleware . storeBearerMiddleware . csrfMiddlewar
case route of case route of
MetricsR -> mzero MetricsR -> mzero
HealthR -> mzero HealthR -> mzero
StatusR -> mzero
InstanceR -> mzero InstanceR -> mzero
AdminCrontabR -> mzero AdminCrontabR -> mzero
_other -> return () _other -> return ()
@ -147,7 +148,7 @@ yesodMiddleware = cacheControlMiddleware . storeBearerMiddleware . csrfMiddlewar
approotHost <- hoistMaybe $ approotScopeHost rApproot app approotHost <- hoistMaybe $ approotScopeHost rApproot app
let doRedirect = do let doRedirect = do
url <- approotRender rApproot route url <- approotRender rApproot route
$logDebugS "normalizeApprootMiddleware" url $logDebugS "normalizeApprootMiddleware redirect" url
redirect url redirect url
if | approotHost /= reqHost if | approotHost /= reqHost
, rApproot /= ApprootUserGenerated , rApproot /= ApprootUserGenerated