| 1 | | This code terminates: |
| 2 | | |
| 3 | | {{{ |
| 4 | | do (x, _) <- makeEvent =<< makeClock |
| 5 | | adaptE (fmap mempty $ snapshot (atTimes []) (stepper 0 x)) |
| 6 | | }}} |
| 7 | | |
| 8 | | This code does not (indeed, the RTS detects this and kills it) but I think it should: |
| 9 | | |
| 10 | | {{{ |
| 11 | | do (x, _) <- makeEvent =<< makeClock |
| 12 | | let samples = snapshot (atTimes []) (stepper 0 x) |
| 13 | | adaptE (fmap mempty samples) |
| 14 | | }}} |
| 15 | | |
| 16 | | (Taken from http://hpaste.org/12528#a1). Triggering the event {{{x}}} does not help. This causes resound to block if the output depends on any Event. |