fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Refactor help.hamlet

Browse Source
This commit is contained in:
Gregor Kleen 2019-04-21 22:53:47 +02:00
parent 8db6ee8e57
commit 374cd9621d
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/Handler/Help.hs
View File

@ -47,7 +47,7 @@ postHelpR = do
isModal <- hasCustomHeader HeaderIsModal isModal <- hasCustomHeader HeaderIsModal
MsgRenderer mr <- getMsgRenderer 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 formResultModal res HelpR $ \HelpForm{..} -> do
now <- liftIO getCurrentTime now <- liftIO getCurrentTime
@ -63,8 +63,9 @@ postHelpR = do
defaultLayout $ do defaultLayout $ do
setTitleI MsgHelpTitle setTitleI MsgHelpTitle
wrapForm $(widgetFile "help") def let formWidget = wrapForm formWidget' def
{ formAction = Just $ SomeRoute HelpR { formAction = Just $ SomeRoute HelpR
, formEncoding = formEnctype , formEncoding = formEnctype
, formAttrs = [ ("data-ajax-submit", "") | isModal ] , formAttrs = [ ("data-ajax-submit", "") | isModal ]
} }
$(widgetFile "help")