blob: fe7b73362a16b6eeba85c08fb04bb351c01795e8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
module Util.WaitFor
( waitFor
) where
import Data.Time (NominalDiffTime)
import Reflex.Dom (Dynamic, Event, MonadWidget)
import qualified Reflex.Dom as R
waitFor
:: forall t m a b. MonadWidget t m
=> (Event t a -> m (Event t b))
-> Event t a
-> m (Event t b, Event t Bool)
waitFor op input = do
result <- op input >>= R.debounce (0.5 :: NominalDiffTime)
let waiting = R.leftmost [ True <$ input , False <$ result ]
return (result, waiting)
|
