Commit 3de3ab79 authored by Stephane Glondu's avatar Stephane Glondu
Browse files

Remove Group.public_key_of_string

parent 62f166c8
......@@ -38,15 +38,6 @@ let read state buf =
let module G = (val Group_field.make group : Group_field.GROUP) in
(module G : GROUP)
let public_key_of_string x =
let w = ff_pubkey_of_string x in
let group = {g=w.ffpk_g; p=w.ffpk_p; q=w.ffpk_q} in
let module X = struct
module G = (val Group_field.make group : Group_field.GROUP)
let y = w.ffpk_y
end in
(module X : PUBLIC_KEY)
let election_params_of_string x =
let params = params_of_string read_ff_pubkey x in
let {ffpk_g=g; ffpk_p=p; ffpk_q=q; ffpk_y=y} = params.e_public_key in
......
......@@ -28,8 +28,5 @@ val of_string : string -> (module GROUP)
val read : (module GROUP) reader
val public_key_of_string : string -> (module PUBLIC_KEY)
(** Parse a [Serializable_t.wrapped_pubkey]. *)
val election_params_of_string : string -> (module ELECTION_PARAMS)
(** Parse a [Serializable_t.params]. *)
......@@ -97,12 +97,6 @@ module type GROUP = sig
end
(** A public key wrapped with its group. *)
module type PUBLIC_KEY = sig
module G : GROUP
val y : G.t
end
(** Election params wrapped with its group. *)
module type ELECTION_PARAMS = sig
module G : GROUP
......
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