From 2cbd43c3a0f0640776a4e7c7425b3210d2e6632b Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 6 Oct 2019 19:41:17 +0200
Subject: Make input label clickable again

---
 client/src/Component/Select.hs | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

(limited to 'client/src/Component/Select.hs')

diff --git a/client/src/Component/Select.hs b/client/src/Component/Select.hs
index 9a37afc..5980ed2 100644
--- a/client/src/Component/Select.hs
+++ b/client/src/Component/Select.hs
@@ -57,8 +57,6 @@ select selectIn = do
       ]
 
     value <- R.elDynAttr "div" containerAttr $ do
-      R.el "label" $ R.text (_selectIn_label selectIn)
-
       let initialValue = _selectIn_initialValue selectIn
 
       let setValue = R.leftmost
@@ -66,11 +64,15 @@ select selectIn = do
             , _selectIn_value selectIn
             ]
 
-      value <- R._dropdown_value <$>
-        R.dropdown
-          initialValue
-          (_selectIn_values selectIn)
-          (R.def { R._dropdownConfig_setValue = setValue })
+      value <- R.el "label" $ do
+        R.divClass "label" $
+          R.text (_selectIn_label selectIn)
+
+        R._dropdown_value <$>
+          R.dropdown
+            initialValue
+            (_selectIn_values selectIn)
+            (R.def { R._dropdownConfig_setValue = setValue })
 
       R.divClass "errorMessage" . R.dynText $
         R.ffor showedError (Maybe.fromMaybe "")
-- 
cgit v1.2.3