From 97f68a85e9cff9197697600edb64d0cc6f948b70 Mon Sep 17 00:00:00 2001
From: Hannes Mehnert <hannes@mehnert.org>
Date: Wed, 13 Nov 2024 12:47:23 +0100
Subject: [PATCH] cope with git-kv change in 0.0.5: digest returns the raw
 digest

---
 mirage/unikernel.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/mirage/unikernel.ml b/mirage/unikernel.ml
index dbd7b3d..460a687 100644
--- a/mirage/unikernel.ml
+++ b/mirage/unikernel.ml
@@ -590,7 +590,7 @@ module Make
 
     let commit_id git_kv =
       Store.digest git_kv Mirage_kv.Key.empty >|= fun r ->
-      Result.fold r ~ok:Fun.id
+      Result.fold r ~ok:Ohex.encode
         ~error:(fun e ->
             Logs.err (fun m -> m "%a" Store.pp_error e);
             exit 2)