From 58f6c4e25f5f20f1b608242c83786e2f13947804 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 3 Nov 2019 16:09:30 +0100
Subject: Delay modal event to let time for the modal to disappear

---
 client/src/Component/Modal.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/client/src/Component/Modal.hs b/client/src/Component/Modal.hs
index 50af469..b0533e2 100644
--- a/client/src/Component/Modal.hs
+++ b/client/src/Component/Modal.hs
@@ -71,7 +71,8 @@ view input = do
     let hide = R.switchDyn $ (\(_, b, _) -> b) <$> dyn
     let content = R.switchDyn $ (\(_, _, c) -> c) <$> dyn
 
-  return content
+  -- Delay the event in order to let time for the modal to disappear
+  R.delay (0.3 :: NominalDiffTime) content
 
 getAttributes :: Text -> LM.Map Text Text
 getAttributes modalClass =
-- 
cgit v1.2.3