aboutsummaryrefslogtreecommitdiff
path: root/client/src/Component
diff options
context:
space:
mode:
authorJoris2019-08-05 21:53:30 +0200
committerJoris2019-08-05 21:53:30 +0200
commitbc81084933f8ec1bfe6c2834defd12243117fdd9 (patch)
tree116d5e8ccd5f234d7376f4f14c74657d7c7e4792 /client/src/Component
parent2741f47ef7b87255203bc2f7f7b2b9140c70b8f0 (diff)
Use updated payment categories from payment add in payment’s table
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