1
1
mirror of https://github.com/aelve/guide.git synced 2024-12-29 00:24:01 +03:00

Don't have 2 form elements in one <label>

This commit is contained in:
Artyom 2016-03-11 19:57:29 +03:00
parent 2cf47a0ec7
commit 17255b3fa0

View File

@ -633,9 +633,9 @@ renderItemInfo cat item = do
input_ [type_ "text", name_ "link",
value_ (fromMaybe "" (item^.link))]
br_ []
newGroupInputId <- randomUid
label_ $ do
"Group" >> br_ []
newGroupInputId <- randomUid
-- When “new group” is selected in the list, we show a field for
-- entering new group's name
--
@ -662,8 +662,8 @@ renderItemInfo cat item = do
then option_ [selected_ "selected", value_ txt] (toHtml txt)
else option_ [value_ txt] (toHtml txt)
option_ [value_ newGroupValue] "New group..."
input_ [uid_ newGroupInputId, type_ "text",
name_ "custom-group", hidden_ "hidden"]
input_ [uid_ newGroupInputId, type_ "text",
name_ "custom-group", hidden_ "hidden"]
br_ []
input_ [type_ "submit", value_ "Save"]
button "Cancel" [] $