console/rootstore
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

init.ml

Browse Source
This commit is contained in:
cqc
2024-02-17 17:51:36 -06:00
parent d24d28e046
commit 2348da7910
1 changed files with 2 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
.config/init.ml
View File

@ -58,17 +58,13 @@ let setup_workspace ~container cstore : unit Lwt.t =
~some:(fun s -> s) ~some:(fun s -> s)
(Headers.get headers "path")) (Headers.get headers "path"))
in in
let status = F.str "Name: %s; Path: %a" step Uri.pp_hum uri in
appendchild ~container appendchild ~container
Tyxml_js.Html.( Tyxml_js.Html.(
a a
~a:[ a_class [ "window" ] ] ~a:[ a_class [ "window" ] ]
[ [
div div ~a:[ a_class [ "status" ] ] [ txt status ];
~a:[ a_class [ "status" ] ]
[
txt
(F.str "Name: %s; Path: %a" step Uri.pp_hum uri);
];
div div
~a:[ a_class [ "output" ] ] ~a:[ a_class [ "output" ] ]
[ txt (F.str "%s" contents) ]; [ txt (F.str "%s" contents) ];