From 2daffaedb35ac54ff14a5a255784a59d79f67180 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <kleen@cip.ifi.lmu.de>
Date: Fri, 5 Apr 2019 21:12:38 +0200
Subject: [PATCH] Set headerMessageMiddleware to run _after_ rest of handler

---
 src/Foundation.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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