this repo has no description
More broken code
+9
-14
+7
-13
mvp/ocaml/client/client.ml
+7
-13
mvp/ocaml/client/client.ml
···
2
2
open Eio.Std
3
3
module API = Schema.Storage.MakeRPC (Capnp_rpc)
4
4
5
-
let pp_file ppf file =
6
-
let e = Capability.problem file in
7
-
Fmt.pf ppf "[%a:%a]" Capnp_rpc.Capability.pp file
8
-
Fmt.(option Capnp_rpc.Exception.pp)
9
-
e
10
-
11
5
module Storage :
12
6
Bellairs.Storage
13
7
with type file = API.Client.File.t Capability.t
···
84
78
let client = Capnp_rpc_unix.Vat.import_exn client_vat uri in
85
79
Capnp_rpc_unix.with_cap_exn client f
86
80
87
-
let pp_entry ppf entry =
88
-
Fmt.pf ppf "%s:%a" entry.Storage.name pp_file entry.file
81
+
let pp_name ppf name = Fmt.pf ppf "%a" Fmt.(styled `Bold string) name
82
+
let pp_entry ppf entry = pp_name ppf entry.Storage.name
89
83
90
84
let ls net uri =
91
85
connect net uri @@ fun dir ->
···
96
90
97
91
let create net uri name =
98
92
connect net uri @@ fun dir ->
99
-
let file = Storage.create dir name in
100
-
Fmt.pr "Created file '%s': %a\n" name pp_file file
93
+
let _file = Storage.create dir name in
94
+
Fmt.pr "Created file '%a'\n" pp_name name
101
95
102
96
let open_file net uri name =
103
97
connect net uri @@ fun dir ->
104
-
let file = Storage.open_ dir name in
105
-
Fmt.pr "Opened file '%s': %a\n" name pp_file file
98
+
let _file = Storage.open_ dir name in
99
+
Fmt.pr "Opened file <raw>\n"
106
100
107
101
let delete net uri name =
108
102
connect net uri @@ fun dir ->
109
103
Storage.delete dir name;
110
-
Fmt.pr "Deleted file '%s'\n" name
104
+
Fmt.pr "Deleted file '%a'\n" pp_name name
111
105
112
106
let size net uri name =
113
107
connect net uri @@ fun dir ->
+2
-1
mvp/ocaml/server/impl.ml
+2
-1
mvp/ocaml/server/impl.ml