Here's my code:
import Control.FRPNow
import Control.Monad (forever)
ticks :: Now (EvStream ())
ticks = do
(evs, cbk) <- callbackStream
async (forever (cbk ()))
return evs
count :: EvStream () -> Behavior (Behavior Integer)
count = foldEs (\a _ -> a + 1) 0
main :: IO ()
main = runNowMaster $ do
t <- ticks
sample $ do
b <- count t
when (fmap (> 10000) b)
I have compiled this with -threaded -rtsopts and when running it with +RTS -N it gives me a FRPWaitsForNeverException while it clearly doesn't wait for never. Running it without +RTS -N works just fine.
Here's my code:
I have compiled this with
-threaded -rtsoptsand when running it with+RTS -Nit gives me aFRPWaitsForNeverExceptionwhile it clearly doesn't wait for never. Running it without+RTS -Nworks just fine.