aboutsummaryrefslogtreecommitdiff
path: root/client/src
diff options
context:
space:
mode:
Diffstat (limited to 'client/src')
-rw-r--r--client/src/Component/Modal.hs3
1 files changed, 2 insertions, 1 deletions
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 =