hack: use Rsa.priv_of_primes

Rsa.priv rejects RSA private keys generated by Google Cloud.
imandra-ai · May 11, 2020 · db01a2a · db01a2a
1 parent ccf3fec
commit db01a2a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/private_key.ml b/lib/private_key.ml
@@ -21,7 +21,7 @@ module Asn = struct
     let f (v, (n, (e, (d, (p, (q, (dp, (dq, (q', other))))))))) =
       match (v, other) with
       | (0, None) ->
-        begin match Rsa.priv ~e ~d ~n ~p ~q ~dp ~dq ~q' with
+        begin match Rsa.priv_of_primes ~e ~p ~q with
           | Ok p -> p
           | Error (`Msg m) -> parse_error "bad RSA private key %s" m
         end