From 86957359ecf54c205aee1c09e151172c327e987a Mon Sep 17 00:00:00 2001
From: Joris
Date: Wed, 31 Oct 2018 19:03:19 +0100
Subject: Various fixes

---
 client/src/Util/WaitFor.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'client/src/Util/WaitFor.hs')

diff --git a/client/src/Util/WaitFor.hs b/client/src/Util/WaitFor.hs
index 46882aa..02edff5 100644
--- a/client/src/Util/WaitFor.hs
+++ b/client/src/Util/WaitFor.hs
@@ -12,6 +12,6 @@ waitFor
   -> Event t a
   -> m (Event t b, Event t Bool)
 waitFor op input = do
-  result <- op input >>= R.debounce (0.2 :: NominalDiffTime)
+  result <- op input >>= R.debounce (0.5 :: NominalDiffTime)
   let waiting = R.leftmost [ const True <$> input , const False <$> result ]
   return (result, waiting)
-- 
cgit v1.2.3