Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

FRPWaitsForNeverException when running with +RTS -N #25

Open
noughtmare opened this issue Mar 17, 2018 · 0 comments
Open

FRPWaitsForNeverException when running with +RTS -N #25

noughtmare opened this issue Mar 17, 2018 · 0 comments

Comments

@noughtmare
Copy link

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.

@noughtmare noughtmare changed the title FPRWaitsForNeverException when running with +RTS -N FRPWaitsForNeverException when running with +RTS -N Mar 17, 2018
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
None yet
Projects
None yet
Development

No branches or pull requests

1 participant