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

wip polymorphic error

Browse source
This commit is contained in:
swrup 2025-12-07 06:39:33 +01:00
parent f8ef92b67e
commit c0765bac8e
3 changed files with 19 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/util.ml
View file

@ -1,3 +1,5 @@
exception Bin_error of string
(* TODO bin
- no [Bin.of_string] ? *)
let bin_of_string bin s =
@ -52,7 +54,7 @@ module Bin_rsa = struct
Bytes.unsafe_to_string b
let check = function
| false -> Error "rsa of_octets error, invalid data"
| false -> Error (`Msg "rsa of_octets error, invalid data")
| true -> Ok ()
let z_array_of_octets ~nb s =
@ -88,7 +90,7 @@ module Bin_rsa = struct
let* arr = z_array_of_octets ~nb:2 s in
match arr with
| [| n; e |] ->
let+ pub = Mirage_crypto_pk.Rsa.pub ~n ~e |> unwrap_err_msg in
let+ pub = Mirage_crypto_pk.Rsa.pub ~n ~e in
pub
| _ -> assert false
@ -100,9 +102,7 @@ module Bin_rsa = struct
let* arr = z_array_of_octets ~nb:8 s in
match arr with
| [| e; d; n; p; q; dp; dq; q' |] ->
let+ priv =
Mirage_crypto_pk.Rsa.priv ~e ~d ~n ~p ~q ~dp ~dq ~q' |> unwrap_err_msg
in
let+ priv = Mirage_crypto_pk.Rsa.priv ~e ~d ~n ~p ~q ~dp ~dq ~q' in
priv
| _ -> assert false
end