Fix timer code in tickLossy
commit4c4776c1352e50997604d9fa9682b2f9aeda0fba
authorRyan Trinkle <ryan.trinkle@gmail.com>
dateTue 14 Apr 2015, 06:26 (12 years ago)
parent2d35470
src/Reflex/Dom/Time.hs+2−2
@@ -17,6 +17,6 @@ tickLossy dt t0 = performEventAsync . fmap callAtNextInterval =<< getPostBuild
1717 where callAtNextInterval _ cb = void $ liftIO $ forkIO $ forever $ do
1818 t <- getCurrentTime
1919 let offset = t `diffUTCTime` t0
20− (n, delay) = offset `divMod'` dt
21− threadDelay $ ceiling $ delay * 1000000
20+ (n, alreadyElapsed) = offset `divMod'` dt
21+ threadDelay $ ceiling $ (dt - alreadyElapsed) * 1000000
2222 cb n