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

cope with git-kv change in 0.0.5: digest returns the raw digest

Browse source
This commit is contained in:
Hannes Mehnert 2024-11-13 12:47:23 +01:00
parent 921ee6b684
commit 97f68a85e9
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
mirage/unikernel.ml
View file

@ -590,7 +590,7 @@ module Make
let commit_id git_kv = let commit_id git_kv =
Store.digest git_kv Mirage_kv.Key.empty >|= fun r -> 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 -> ~error:(fun e ->
Logs.err (fun m -> m "%a" Store.pp_error e); Logs.err (fun m -> m "%a" Store.pp_error e);
exit 2) exit 2)