changing debounce to 1s

labordynamicsinstitute · Dec 16, 2020 · 854be51 · 854be51
1 parent d58bb6d
commit 854be51
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Metajelo/FormUtil.purs b/src/Metajelo/FormUtil.purs
@@ -147,7 +147,7 @@ textInput' initVal = sig initVal
     --   pure $ unsafePerformEffect $ log $ "refstr in textInput sigNow': " <> (show rs)
     --   rsNew <- textInputWidget rs
     --   pure $ sigNow rsNew
-    sig txt = debounce 2000.0 txt textInputWidget
+    sig txt = debounce 1000.0 txt textInputWidget
 
 -- | Reasonable defaults for filtering input text
 textFilter :: Signal HTML String -> Signal HTML (Maybe NonEmptyString)