Tidy up

hazelgrove · Sep 27, 2024 · 320611e · 320611e
1 parent ccc6dc1
commit 320611e
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/haz3lweb/Main.re b/src/haz3lweb/Main.re
@@ -63,6 +63,8 @@ let app =
     ~default_model=Model.load(Model.blank),
   );
 
+/* This subcomponent is used to run an effect once when the app starts up,
+   After the first draw */
 let on_startup = effect => {
   let%sub startup_completed = Bonsai.toggle'(~default_model=false);
   let%sub after_display = {
@@ -74,7 +76,7 @@ let on_startup = effect => {
     | {state: true, _} => Bonsai.Computation.return(Ui_effect.Ignore)
     };
   };
-  Bonsai.Edge.lifecycle(~after_display, ());
+  Bonsai.Edge.after_display(after_display);
 };
 
 let view = {