From a47bddcb7d6cfc7dada94aaab18d99a0a7b37963 Mon Sep 17 00:00:00 2001
From: cqc <cqc@conrailqualitycontent.net>
Date: Sun, 24 Mar 2024 22:55:50 -0500
Subject: [PATCH] 3

---
 .config/init.ml | 27 ++++++++++++++-------------
 1 file changed, 14 insertions(+), 13 deletions(-)

diff --git a/.config/init.ml b/.config/init.ml
index a8fd4b1..a318108 100644
--- a/.config/init.ml
+++ b/.config/init.ml
@@ -60,19 +60,20 @@ let setup_workspace ~container cstore : unit Lwt.t =
         in
         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) ];
-              ]);
+            (* 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