diff --git a/src/Foundation.hs b/src/Foundation.hs
index 032d630a2..c5800a3ed 100644
--- a/src/Foundation.hs
+++ b/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