From 2348da7910ca6fb6bbd6116a0133643eb413ead3 Mon Sep 17 00:00:00 2001
From: cqc <cqc@conrailqualitycontent.net>
Date: Sat, 17 Feb 2024 17:51:36 -0600
Subject: [PATCH] init.ml

---
 .config/init.ml | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/.config/init.ml b/.config/init.ml
index a8fd4b1..e81a606 100644
--- a/.config/init.ml
+++ b/.config/init.ml
@@ -58,17 +58,13 @@ let setup_workspace ~container cstore : unit Lwt.t =
                ~some:(fun s -> s)
                (Headers.get headers "path"))
         in
+        let status = F.str "Name: %s; Path: %a" step Uri.pp_hum uri 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 [ "status" ] ] [ txt status ];
                 div
                   ~a:[ a_class [ "output" ] ]
                   [ txt (F.str "%s" contents) ];