diff options
| author | Joris | 2019-11-03 16:09:30 +0100 |
|---|---|---|
| committer | Joris | 2019-11-03 16:09:30 +0100 |
| commit | 58f6c4e25f5f20f1b608242c83786e2f13947804 (patch) | |
| tree | 8a6d9be45b9c34c227dd30fe573ac1bfc1ed8c1b | |
| parent | 4c79ca374e030454f62a467fb4f2197d372e9bc1 (diff) | |
| download | budget-58f6c4e25f5f20f1b608242c83786e2f13947804.tar.gz budget-58f6c4e25f5f20f1b608242c83786e2f13947804.tar.bz2 budget-58f6c4e25f5f20f1b608242c83786e2f13947804.zip | |
Delay modal event to let time for the modal to disappear
| -rw-r--r-- | client/src/Component/Modal.hs | 3 |
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 = |