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

Set headerMessageMiddleware to run _after_ rest of handler

Browse Source
This commit is contained in:
Gregor Kleen 2019-04-05 21:12:38 +02:00
parent efac923cc2
commit 2daffaedb3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Foundation.hs
View File

@ -857,7 +857,7 @@ instance Yesod UniWorX where
$logDebugS "normalizeRouteMiddleware" [st|Redirecting to #{tshow route'}|] $logDebugS "normalizeRouteMiddleware" [st|Redirecting to #{tshow route'}|]
redirectWith movedPermanently301 route' redirectWith movedPermanently301 route'
headerMessagesMiddleware :: Handler a -> Handler a headerMessagesMiddleware :: Handler a -> Handler a
headerMessagesMiddleware handler = (*> handler) . runMaybeT $ do headerMessagesMiddleware handler = (handler <*) . runMaybeT $ do
isModal <- hasCustomHeader HeaderIsModal isModal <- hasCustomHeader HeaderIsModal
dbTableShortcircuit <- hasCustomHeader HeaderDBTableShortcircuit dbTableShortcircuit <- hasCustomHeader HeaderDBTableShortcircuit
guard $ isModal || dbTableShortcircuit guard $ isModal || dbTableShortcircuit