robur/opam-mirror
4
0
Fork 0
Code Issues 6 Pull requests 2 Projects Releases Packages Wiki Activity Actions

less debug

Browse source
This commit is contained in:
Hannes Mehnert 2022-08-31 16:25:04 +02:00
parent bf29496274
commit 86c961f5cf
1 changed files with 3 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
mirage/unikernel.ml
View file

@ -297,13 +297,11 @@ module Make
false false
end) hm end) hm
then begin then begin
Logs.info (fun m -> m "KV.set (%d)" (String.length data));
KV.set t.dev (Mirage_kv.Key.v sha256) data >|= function KV.set t.dev (Mirage_kv.Key.v sha256) data >|= function
| Ok () -> | Ok () ->
Logs.info (fun m -> m "KV.set done");
t.md5s <- SM.add md5 sha256 t.md5s; t.md5s <- SM.add md5 sha256 t.md5s;
t.sha512s <- SM.add sha512 sha256 t.sha512s; t.sha512s <- SM.add sha512 sha256 t.sha512s;
Logs.info (fun m -> m "wrote %s (%d bytes)" (hex_to_string sha256) Logs.debug (fun m -> m "wrote %s (%d bytes)" (hex_to_string sha256)
(String.length data)) (String.length data))
| Error e -> | Error e ->
Logs.err (fun m -> m "error %a while writing %s" Logs.err (fun m -> m "error %a while writing %s"
@ -381,10 +379,9 @@ module Make
Logs.info (fun m -> m "ignoring %s (already present)" url); Logs.info (fun m -> m "ignoring %s (already present)" url);
Lwt.return_unit Lwt.return_unit
| false -> | false ->
Logs.info (fun m -> m "downloading %s" url);
one_request ~ctx:http_ctx url >>= function one_request ~ctx:http_ctx url >>= function
| Ok (resp, Some str) -> | Ok (resp, Some str) -> Disk.write disk str csums
Logs.info (fun m -> m "writing (%d)" (String.length str));
Disk.write disk str csums
| _ -> Lwt.return_unit) | _ -> Lwt.return_unit)
(SM.bindings urls) >|= fun () -> (SM.bindings urls) >|= fun () ->
Logs.info (fun m -> m "done") Logs.info (fun m -> m "done")