swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Browse source
This commit is contained in:
swrup 2026-02-05 18:08:11 +01:00
parent 5ed9209320
commit 75a0aef0a6
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/hash.ml
View file

@ -38,7 +38,7 @@ module H32 = struct
map (bytes 32) of_octets to_octets map (bytes 32) of_octets to_octets
(* hashes are not b32 encoded in the database *) (* hashes are not b32 encoded in the database *)
let caqti : t Caqti_type.t = let caqti =
let open Caqti_type in let open Caqti_type in
custom custom
~encode:(fun v -> Ok (to_octets v)) ~encode:(fun v -> Ok (to_octets v))
@ -73,7 +73,7 @@ module H64 = struct
map (bytes 64) of_octets to_octets map (bytes 64) of_octets to_octets
(* hashes are not b32 encoded in the database *) (* hashes are not b32 encoded in the database *)
let caqti : t Caqti_type.t = let caqti =
let open Caqti_type in let open Caqti_type in
custom custom
~encode:(fun v -> Ok (to_octets v)) ~encode:(fun v -> Ok (to_octets v))