summaryrefslogtreecommitdiff
path: root/ocaml/lib/io/behn.ml
diff options
context:
space:
mode:
authorpolwex <polwex@sortug.com>2025-10-06 05:34:08 +0700
committerpolwex <polwex@sortug.com>2025-10-06 05:34:08 +0700
commitc3545b7ba9e8448226417fab6edaa2d039c9babe (patch)
tree798fd2bf87a67ac91e31b2fb7f0cd6590064b2c1 /ocaml/lib/io/behn.ml
parent9fd3f41bf9a3326c5f0866f39f2ed151adc21565 (diff)
wait what? runtime working?HEADmaster
Diffstat (limited to 'ocaml/lib/io/behn.ml')
-rw-r--r--ocaml/lib/io/behn.ml5
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