remove extra Control.Monad.forever
commit8ffb7212dd1fd9787447294814a469a93ffd8178
authorGreg Hale <imalsogreg@gmail.com>
dateFri 15 May 2015, 10:08 (11 years ago)
parent604ea5b
src/Reflex/Dom/Time.hs+1−1
@@ -67,7 +67,7 @@ poissonLossyFrom
6767 -- Start sending events in response to the event parameter.
6868 -> m (Event t TickInfo)
6969poissonLossyFrom rnd rate t0 e = performEventAsync $ fmap callAtNextInterval e
70− where callAtNextInterval _ cb = void $ liftIO $ forkIO $ forever $ go rnd cb
70+ where callAtNextInterval _ cb = void $ liftIO $ forkIO $ go rnd cb
7171 go lastGen cb = do
7272 t <- getCurrentTime
7373 let (u, nextGen) = randomR (0,1) lastGen