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

add signkey revoke

Browse source 
(untested)
This commit is contained in:
swrup 2025-12-11 03:19:37 +01:00
parent 472463e68b
commit 399a977c2d
7 changed files with 77 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/crypto.ml
View file

@ -22,13 +22,13 @@ module EddsaPublicKey = struct
in
Bin.map (Bin.bytes 32) of_octets to_octets
let of_b32 s =
let open Syntax in
let* octets = B32.decode s in
let* pub = of_octets octets in
Ok pub
let jsont =
let of_b32 s =
let open Syntax in
let* octets = B32.decode s in
let* pub = of_octets octets in
Ok pub
in
let to_b32 t = B32.encode (to_octets t) in
Jsont.of_of_string ~kind:"EddsaPublicKey" of_b32 ~enc:to_b32