diff options
author | Joris | 2019-10-06 19:41:17 +0200 |
---|---|---|
committer | Joris | 2019-10-06 19:41:17 +0200 |
commit | 2cbd43c3a0f0640776a4e7c7425b3210d2e6632b (patch) | |
tree | dd832cf562c1eb9f41f5909c16c5cf3e55386b97 /client/src/Component/Input.hs | |
parent | f4c5df9e1b1afddeb5a482d4fbe654d0b321159c (diff) | |
download | budget-2cbd43c3a0f0640776a4e7c7425b3210d2e6632b.tar.gz budget-2cbd43c3a0f0640776a4e7c7425b3210d2e6632b.tar.bz2 budget-2cbd43c3a0f0640776a4e7c7425b3210d2e6632b.zip |
Make input label clickable again
Diffstat (limited to 'client/src/Component/Input.hs')
-rw-r--r-- | client/src/Component/Input.hs | 16 |
1 files changed, 10 insertions, 6 deletions
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 |