@@ -67,7 +67,7 @@ poissonLossyFrom
67 -- Start sending events in response to the event parameter.
67 -- Start sending events in response to the event parameter.
68 -> m (Event t TickInfo)
68 -> m (Event t TickInfo)
69poissonLossyFrom rnd rate t0 e = performEventAsync $ fmap callAtNextInterval e
69poissonLossyFrom 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
71 go lastGen cb = do
71 go lastGen cb = do
72 t <- getCurrentTime
72 t <- getCurrentTime
73 let (u, nextGen) = randomR (0,1) lastGen
73 let (u, nextGen) = randomR (0,1) lastGen