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

Use fieldests for what they're meant to do

Browse Source
This commit is contained in:
Gregor Kleen 2018-06-29 09:32:37 +02:00
parent 97b1ffeafb
commit 9290052fe7
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Utils/Form.hs
View File

@ -527,6 +527,6 @@ multiAction acts = do
options = OptionList [ Option (mr a) a (toPathPiece a) | a <- Map.keys acts ] fromPathPiece options = OptionList [ Option (mr a) a (toPathPiece a) | a <- Map.keys acts ] fromPathPiece
(actionRes, actionView) <- mreq (selectField $ return options) "" Nothing (actionRes, actionView) <- mreq (selectField $ return options) "" Nothing
results <- mapM id acts results <- mapM id acts
let actionWidgets = Map.foldrWithKey (\(toPathPiece -> act) (_, w) -> ($(widgetFile "widgets/multiAction") :)) [] results let actionWidgets = Map.foldrWithKey (\act (_, w) -> ($(widgetFile "widgets/multiAction") :)) [] results
actionResults = Map.map fst results actionResults = Map.map fst results
return ((actionResults Map.!) =<< actionRes, $(widgetFile "widgets/multiActionCollect")) return ((actionResults Map.!) =<< actionRes, $(widgetFile "widgets/multiActionCollect"))

4
templates/widgets/multiAction.hamlet
View File

@ -1,2 +1,4 @@
<div data-conditional-id="#{fvId actionView}" data-conditional-value="#{act}"> <fieldset data-conditional-id="#{fvId actionView}" data-conditional-value="#{toPathPiece act}">
<legend>
_{act}
^{w} ^{w}