From 5fe3502865a9d9e187bb9560dc42bb7a1439e588 Mon Sep 17 00:00:00 2001 From: Estevan Castilho Date: Sat, 29 Aug 2026 02:28:12 +0000 Subject: Identity mixins --- lib/concepts/Hash.ml | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'lib/concepts/Hash.ml') diff --git a/lib/concepts/Hash.ml b/lib/concepts/Hash.ml index 922851a..5f023fc 100644 --- a/lib/concepts/Hash.ml +++ b/lib/concepts/Hash.ml @@ -11,6 +11,11 @@ let hash_of_bytes bytes = Digestif.SHA256.digest_bytes bytes let hash_of_blob blob = Blob.bytes_of_blob blob |> Digestif.SHA256.digest_bytes +let hash_of_int i = + let b = Blob.create 8 in + Blob.set_int64_be b 0 (Int64.of_int i); + hash_of_blob b + let bytes_of_hash (h : hash) = Bytes.of_string (Digestif.SHA256.to_raw_string h) let blob_of_hash h = bytes_of_hash h |> Blob.blob_of_bytes -- cgit v1.2.3