Add Reflex.Dom.Time.delay
commit01fc6f24b7d137b8ba86c77549eec404795192b3
authorRyan Trinkle <ryan.trinkle@gmail.com>
dateMon 27 Apr 2015, 03:21 (11 years ago)
parent3b8547b
src/Reflex/Dom/Time.hs+5
@@ -43,3 +43,8 @@ tickLossyFrom dt t0 e = performEventAsync $ fmap callAtNextInterval e
4343 (n, alreadyElapsed) = offset `divMod'` dt
4444 threadDelay $ ceiling $ (dt - alreadyElapsed) * 1000000
4545 cb $ TickInfo t n alreadyElapsed
46+
47+delay :: MonadWidget t m => NominalDiffTime -> Event t a -> m (Event t a)
48+delay dt e = performEventAsync $ ffor e $ \a cb -> liftIO $ void $ forkIO $ do
49+ threadDelay $ ceiling $ dt * 1000000
50+ cb a