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

ok secmod + logs

Browse source
This commit is contained in:
swrup 2026-02-21 19:25:31 +01:00
parent cb33942711
commit 37ed47326a
5 changed files with 79 additions and 51 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/crypto.ml
View file

@ -207,6 +207,7 @@ module RsaPublicKey = struct
let to_octets = Binary_format_rsa.pub_to_octets
let of_octets = Binary_format_rsa.pub_of_octets
let to_b32 t = B32.encode (to_octets t)
let jsont =
let of_b32 s =
@ -214,7 +215,6 @@ module RsaPublicKey = struct
let+ v = of_octets s in
v
in
let to_b32 t = B32.encode (to_octets t) in
Jsont.of_of_string ~kind:"RsaPublicKey" of_b32 ~enc:to_b32
let caqti : t Caqti_type.t =