moved initFlashMessages to renderHtml function in Render module.

digitallyinduced · Aug 16, 2021 · f59abbf · f59abbf
1 parent 161d575
commit f59abbf
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 3 deletions.
diff --git a/IHP/Controller/Render.hs b/IHP/Controller/Render.hs
@@ -21,6 +21,7 @@ import Text.Blaze.Html (Html)
 import GHC.Records
 import qualified IHP.Controller.Context as Context
 import IHP.Controller.Layout
+import IHP.FlashMessages.ControllerFunctions (initFlashMessages)
 
 renderPlain :: (?context :: ControllerContext) => LByteString -> IO ()
 renderPlain text = respondAndExit $ responseLBS status200 [(hContentType, "text/plain")] text
@@ -37,9 +38,8 @@ respondSvg html = respondAndExit $ responseBuilder status200 [(hContentType, "im
 renderHtml :: forall viewContext view controller. (ViewSupport.View view, ?context :: ControllerContext, ?modelContext :: ModelContext) => view -> IO Html
 renderHtml !view = do
     let ?view = view
-
+    initFlashMessages
     ViewSupport.beforeRender view
-
     frozenContext <- Context.freeze ?context
 
     let ?context = frozenContext

diff --git a/IHP/ControllerSupport.hs b/IHP/ControllerSupport.hs
@@ -91,7 +91,6 @@ runActionWithNewContext controller = do
     let ?context = controllerContext
     Context.putContext ?application
     Context.putContext (Context.ActionType (Typeable.typeOf controller))
-    initFlashMessages
     Assets.initAssetVersion
 
     try (initContext @application) >>= \case