diff --git a/.config/init.ml b/.config/init.ml index a8fd4b1..d9ea51e 100644 --- a/.config/init.ml +++ b/.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