diff options
Diffstat (limited to 'ocaml/lib/io')
| -rw-r--r-- | ocaml/lib/io/behn.ml | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/ocaml/lib/io/behn.ml b/ocaml/lib/io/behn.ml index 95e1d02..e2ffdac 100644 --- a/ocaml/lib/io/behn.ml +++ b/ocaml/lib/io/behn.ml @@ -75,11 +75,10 @@ let timer_fiber behn ~env ~event_stream timer = Printf.printf "[Behn] Timer %Ld: FIRED! 🔥\n%!" timer.id; (* Create timer ovum and send to event stream *) - let ovum_noun = Nock_lib.Effects.timer_ovum ~id:timer.id ~fire_time:timer.fire_time in - let event = Nock_lib.Noun.cell ovum_noun.wire ovum_noun.card in + let ovum = Nock_lib.Effects.timer_ovum ~id:timer.id ~fire_time:timer.fire_time in (* Send to runtime event stream *) - Eio.Stream.add event_stream event; + Eio.Stream.add event_stream ovum; Printf.printf "[Behn] Timer %Ld: event sent to runtime\n%!" timer.id end else begin Printf.printf "[Behn] Timer %Ld: cancelled, not firing\n%!" timer.id |