aboutsummaryrefslogtreecommitdiff
path: root/client/src/Util/WaitFor.hs
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)