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

More informative log message

Browse source
This commit is contained in:
Reynir Björnsson 2024-10-18 10:26:43 +02:00
parent 625081abff
commit 5accfcfc08
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
mirage/unikernel.ml
View file

@ -957,8 +957,10 @@ stamp: %S
url H2.Status.pp_hum resp.status resp.reason); url H2.Status.pp_hum resp.status resp.reason);
Lwt.return_unit Lwt.return_unit
| Error `Write_error e -> | Error `Write_error e ->
Logs.err (fun m -> m "%s: write error %a" Logs.err (fun m -> m "%s: write error %a %a"
url KV.pp_write_error e); url
Mirage_kv.Key.pp (Disk.pending_key quux)
KV.pp_write_error e);
Lwt.return_unit Lwt.return_unit
| Ok (digests, body) -> | Ok (digests, body) ->
Disk.finalize_write disk quux ~url body csums digests Disk.finalize_write disk quux ~url body csums digests