aboutsummaryrefslogtreecommitdiff
path: root/client/src/Component
diff options
context:
space:
mode:
Diffstat (limited to 'client/src/Component')
-rw-r--r--client/src/Component/Input.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/client/src/Component/Input.hs b/client/src/Component/Input.hs
index 67f97c0..d679f9b 100644
--- a/client/src/Component/Input.hs
+++ b/client/src/Component/Input.hs
@@ -53,7 +53,7 @@ input
input inputIn reset validate = do
rec
let resetValue = R.leftmost
- [ R.traceEvent "reset" reset
+ [ reset
, fmap (const "") resetClic
]
@@ -83,7 +83,7 @@ input inputIn reset validate = do
[ const (False, True) <$> resetClic
, (\f -> (f, False)) <$> (R.updated . R._textInput_hasFocus $ textInput)
, const (False, False) <$> validate
- , const (True, False) <$> R.traceEvent "delayedReset" delayedReset
+ , const (True, False) <$> delayedReset
])
(textInput, resetClic) <- R.elDynAttr "div" containerAttr $ do