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/Input.hs | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

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

diff --git a/client/src/Component/Input.hs b/client/src/Component/Input.hs
index abdc51c..0c84754 100644
--- a/client/src/Component/Input.hs
+++ b/client/src/Component/Input.hs
@@ -75,13 +75,17 @@ input inputIn reset validate = do
 
     (textInput, resetClic) <- R.elDynAttr "div" containerAttr $ do
 
-      textInput <- R.textInput $ R.def
-        & R.attributes .~ inputAttr
-        & R.setValue .~ resetValue
-        & R.textInputConfig_initialValue .~ (_inputIn_initialValue inputIn)
-        & R.textInputConfig_inputType .~ (_inputIn_inputType inputIn)
+      textInput <- R.el "label" $ do
+        textInput <- R.textInput $ R.def
+          & R.attributes .~ inputAttr
+          & R.setValue .~ resetValue
+          & R.textInputConfig_initialValue .~ (_inputIn_initialValue inputIn)
+          & R.textInputConfig_inputType .~ (_inputIn_inputType inputIn)
 
-      R.el "label" $ R.text (_inputIn_label inputIn)
+        R.divClass "label" $
+          R.text (_inputIn_label inputIn)
+
+        return textInput
 
       resetClic <-
         if _inputIn_hasResetButton inputIn
-- 
cgit v1.2.3