From d24d28e046c1d461862a999e2e463f2b5adc794c Mon Sep 17 00:00:00 2001
From: cqc <cqc@conrailqualitycontent.net>
Date: Sat, 17 Feb 2024 14:52:01 -0600
Subject: [PATCH] fix init.ml

---
 .config/init.ml | 35 ++++++++++++++++++-----------------
 1 file changed, 18 insertions(+), 17 deletions(-)

diff --git a/.config/init.ml b/.config/init.ml
index a654418..a8fd4b1 100644
--- a/.config/init.ml
+++ b/.config/init.ml
@@ -35,6 +35,9 @@ let headers_of_string_list (sl : string list) : Httpaf.Headers.t =
            (String.index_opt s ':'))
        sl)
 
+let appendchild ~container html =
+  Dom.appendChild container (Tyxml_js.To_dom.of_a html)
+
 let setup_workspace ~container cstore : unit Lwt.t =
   let render ~container cstore : unit Lwt.t =
     let module Headers = Httpaf.Headers in
@@ -55,23 +58,21 @@ let setup_workspace ~container cstore : unit Lwt.t =
                ~some:(fun s -> s)
                (Headers.get headers "path"))
         in
-        Dom.appendChild container
-          (Tyxml_js.To_dom.of_a
-             Tyxml_js.Html.(
-               a
-                 ~a:[ a_class [ "window" ] ]
-                 [
-                   div
-                     ~a:[ a_class [ "status" ] ]
-                     [
-                       txt
-                         (F.str "Name: %s; Path: %a" step Uri.pp_hum
-                            uri);
-                     ];
-                   div
-                     ~a:[ a_class [ "output" ] ]
-                     [ txt (F.str "%s" contents) ];
-                 ]));
+        appendchild ~container
+          Tyxml_js.Html.(
+            a
+              ~a:[ a_class [ "window" ] ]
+              [
+                div
+                  ~a:[ a_class [ "status" ] ]
+                  [
+                    txt
+                      (F.str "Name: %s; Path: %a" step Uri.pp_hum uri);
+                  ];
+                div
+                  ~a:[ a_class [ "output" ] ]
+                  [ txt (F.str "%s" contents) ];
+              ]);
         Lwt.return_unit)
       csl
   in