Commit 58f6c4e2 authored by Joris's avatar Joris

Delay modal event to let time for the modal to disappear

parent 4c79ca37
......@@ -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 =
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment