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

fix(system-msg): use correct required features for form elems

Browse Source
This commit is contained in:
Sarah Vaupel 2022-02-17 14:59:17 +01:00
parent f8f9dc0621
commit b99cda06aa
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Handler/SystemMessage.hs
View File

@ -29,8 +29,8 @@ systemMessageVolatileClusterSettingsForm (fmap Set.toList -> mPrev) = wFormToAFo
let
volatileClusterSettingForm :: (Text -> Text) -> Maybe (VolatileClusterSettingsKey, Value) -> Form (VolatileClusterSettingsKey, Value)
volatileClusterSettingForm nudge mTemplate csrf = do
(keyRes, keyView) <- mpopt (selectField optionsFinite) ("" & addName (nudge "key" )) (view _1 <$> mTemplate)
(valRes, valView) <- mreq (jsonField JsonFieldNormal) ("" & addName (nudge "value")) (view _2 <$> mTemplate)
(keyRes, keyView) <- mpreq (selectField optionsFinite) ("" & addName (nudge "key" )) (view _1 <$> mTemplate)
(valRes, valView) <- mpreq (jsonField JsonFieldNormal) ("" & addName (nudge "value")) (view _2 <$> mTemplate)
return ((,) <$> keyRes <*> valRes, $(widgetFile "widgets/massinput/systemMessage/volatileClusterSettings/form"))
miAdd nudge submitView csrf = do