diff options
| author | polwex <polwex@sortug.com> | 2025-10-06 05:34:08 +0700 |
|---|---|---|
| committer | polwex <polwex@sortug.com> | 2025-10-06 05:34:08 +0700 |
| commit | c3545b7ba9e8448226417fab6edaa2d039c9babe (patch) | |
| tree | 798fd2bf87a67ac91e31b2fb7f0cd6590064b2c1 /ocaml/lib/io | |
| parent | 9fd3f41bf9a3326c5f0866f39f2ed151adc21565 (diff) | |
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 |