From 17255b3fa01fd14d0e4762206de2fd2c518dbbcb Mon Sep 17 00:00:00 2001
From: Artyom <yom@artyom.me>
Date: Fri, 11 Mar 2016 19:57:29 +0300
Subject: [PATCH] Don't have 2 form elements in one <label>

---
 src/Main.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/Main.hs b/src/Main.hs
index e274a0e..fc6d03f 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -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" [] $