3

.config/init.ml

@@ -2,6 +2,7 @@ open Js_of_ocaml
 open Js_of_ocaml_tyxml
 open Lwt
 open Store
+open Tyxml
 
 let by_id s = Dom_html.getElementById s
 
@@ -64,14 +65,16 @@ let setup_workspace ~container cstore : unit Lwt.t =
               ~a:[ a_class [ "window" ] ]
               [
                 div
-                  ~a:[ a_class [ "status" ] ]
+                  (* ~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) ];
+                  ]
+                (*;
+                  div
+                    ~a:[ a_class [ "output" ] ]
+                    [ txt (F.str "%s" contents) ];
+                *);
               ]);
         Lwt.return_unit)
       csl