diff options
| author | Joris | 2018-10-30 20:33:17 +0100 |
|---|---|---|
| committer | Joris | 2018-10-30 20:33:17 +0100 |
| commit | 8a28f608d8e08fba4bbe54b46804d261686c3c03 (patch) | |
| tree | 0accedf149dc42461ec2662f190243f9a9d3888b /client/src/Util/WaitFor.hs | |
| parent | 50fb8fa48d1c4881da20b4ecf6d68a772301e713 (diff) | |
| download | budget-8a28f608d8e08fba4bbe54b46804d261686c3c03.tar.gz budget-8a28f608d8e08fba4bbe54b46804d261686c3c03.tar.bz2 budget-8a28f608d8e08fba4bbe54b46804d261686c3c03.zip | |
Upgrade reflex-platform
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 0175c95..7d5e7c5 100644 --- a/client/src/Util/WaitFor.hs +++ b/client/src/Util/WaitFor.hs @@ -13,6 +13,6 @@ waitFor -> Dynamic t a -> m (Event t b, Event t Bool) waitFor op start input = do - result <- op (R.tagPromptlyDyn input start) >>= R.debounce (0.5 :: NominalDiffTime) + result <- op (R.tag (R.current input) start) >>= R.debounce (0.5 :: NominalDiffTime) let waiting = R.leftmost [ const True <$> start , const False <$> result ] return (result, waiting) |