diff --git a/src/Handler/Help.hs b/src/Handler/Help.hs index f79d36b92..bf33da8d5 100644 --- a/src/Handler/Help.hs +++ b/src/Handler/Help.hs @@ -47,7 +47,7 @@ postHelpR = do isModal <- hasCustomHeader HeaderIsModal MsgRenderer mr <- getMsgRenderer - ((res,formWidget),formEnctype) <- runFormPost $ renderAForm FormStandard $ helpForm mr mReferer mUid + ((res,formWidget'),formEnctype) <- runFormPost $ renderAForm FormStandard $ helpForm mr mReferer mUid formResultModal res HelpR $ \HelpForm{..} -> do now <- liftIO getCurrentTime @@ -63,8 +63,9 @@ postHelpR = do defaultLayout $ do setTitleI MsgHelpTitle - wrapForm $(widgetFile "help") def - { formAction = Just $ SomeRoute HelpR - , formEncoding = formEnctype - , formAttrs = [ ("data-ajax-submit", "") | isModal ] - } + let formWidget = wrapForm formWidget' def + { formAction = Just $ SomeRoute HelpR + , formEncoding = formEnctype + , formAttrs = [ ("data-ajax-submit", "") | isModal ] + } + $(widgetFile "help")