digest: return the raw digest, not hex encoded

This commit is contained in:
Hannes Mehnert 2024-05-07 12:40:50 +02:00
parent 4ba5f909dd
commit 105e35db9f

View file

@ -453,7 +453,7 @@ module Make (Pclock : Mirage_clock.PCLOCK) = struct
let digest t key = let digest t key =
Option.fold Option.fold
~none:(Error (`Not_found key)) ~none:(Error (`Not_found key))
~some:(fun x -> Ok (Store.Hash.to_hex x)) ~some:(fun x -> Ok (Store.Hash.to_raw_string x))
t.head |> Lwt.return t.head |> Lwt.return
let size t key = let size t key =