From 5accfcfc089c52b25fc76f5002391d46e1105bbc Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Reynir=20Bj=C3=B6rnsson?= <reynir@reynir.dk>
Date: Fri, 18 Oct 2024 10:26:43 +0200
Subject: [PATCH] More informative log message

---
 mirage/unikernel.ml | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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