Commit cb8d8152 authored by Stephane Glondu's avatar Stephane Glondu

Remove Platform.b64_encode_compact

It was unused on JS.
parent 99196ee3
......@@ -23,8 +23,6 @@ val sha256_hex : string -> string
val sha256_b64 : string -> string
val pbkdf2_hex : iterations:int -> salt:string -> string -> string
val b64_encode_compact : string -> string
type rng
val secure_rng : rng
val pseudo_rng : string -> rng
......
......@@ -38,8 +38,6 @@ let sha256_b64 x =
| Some i -> String.sub raw 0 i
| None -> raw
let b64_encode_compact _ = assert false
let pbkdf2_hex ~iterations ~salt x =
let salt = Js.Unsafe.meth_call sjcl "codec.hex.toBits"
[| Js.string salt |> Js.Unsafe.inject |]
......
......@@ -29,9 +29,6 @@ let sha256_b64 x = Cryptokit.(x |>
transform_string (Base64.encode_compact ())
)
let b64_encode_compact x =
Cryptokit.(transform_string (Base64.encode_compact ()) x)
let int_msb i =
let result = Bytes.create 4 in
Bytes.set result 0 (char_of_int (i lsr 24));
......
......@@ -287,6 +287,9 @@ let do_get_randomness =
return (random_string prng 32)
)
let b64_encode_compact x =
Cryptokit.(transform_string (Base64.encode_compact ()) x)
let () = String.register
~service:get_randomness
(fun () () ->
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment