Set headerMessageMiddleware to run _after_ rest of handler

src/Foundation.hs

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