From b99cda06aa22b3b9a3c026f80873cb2b68d93cdb Mon Sep 17 00:00:00 2001 From: Sarah Vaupel Date: Thu, 17 Feb 2022 14:59:17 +0100 Subject: [PATCH] fix(system-msg): use correct required features for form elems --- src/Handler/SystemMessage.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Handler/SystemMessage.hs b/src/Handler/SystemMessage.hs index 12747a62d..00e034c3f 100644 --- a/src/Handler/SystemMessage.hs +++ b/src/Handler/SystemMessage.hs @@ -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