diff options
| author | Joris | 2019-08-10 21:31:27 +0200 |
|---|---|---|
| committer | Joris | 2019-08-10 21:31:27 +0200 |
| commit | c542424b7b41c78a170763f6996c12f56b359860 (patch) | |
| tree | 44830a524c592b53e93190c0461676edbfa6fdb8 /client/src/Util/WaitFor.hs | |
| parent | c5c54722f4736108c8418c9865f81f05a6db560d (diff) | |
| download | budget-c542424b7b41c78a170763f6996c12f56b359860.tar.gz budget-c542424b7b41c78a170763f6996c12f56b359860.tar.bz2 budget-c542424b7b41c78a170763f6996c12f56b359860.zip | |
Add smooth transitions to modal show and hide
Diffstat (limited to 'client/src/Util/WaitFor.hs')
| -rw-r--r-- | client/src/Util/WaitFor.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/client/src/Util/WaitFor.hs b/client/src/Util/WaitFor.hs index 02edff5..fe7b733 100644 --- a/client/src/Util/WaitFor.hs +++ b/client/src/Util/WaitFor.hs @@ -13,5 +13,5 @@ waitFor -> m (Event t b, Event t Bool) waitFor op input = do result <- op input >>= R.debounce (0.5 :: NominalDiffTime) - let waiting = R.leftmost [ const True <$> input , const False <$> result ] + let waiting = R.leftmost [ True <$ input , False <$ result ] return (result, waiting) |