diff --git a/etherlink/bin_floodgate/main.ml b/etherlink/bin_floodgate/main.ml index e3b4743dc0e9ddd2fa1b071ff89444bc6e3f3f43..a3e31a56e49025f5826ea65a65eb210541ae20b0 100644 --- a/etherlink/bin_floodgate/main.ml +++ b/etherlink/bin_floodgate/main.ml @@ -15,17 +15,7 @@ module Parameter = struct let open Lwt_result_syntax in match Configuration.gcp_key_from_string_opt value with | None -> - let* value = - try - match String.remove_prefix ~prefix:"0x" value with - | Some value -> - let _ = Hex.show (`Hex value) in - return (`Hex value) - | None -> raise (Invalid_argument "not prefixed by 0x") - with _ -> - failwith "%s value is not a valid hexadecimal string" value - in - let*? secret_key = Signer.secret_key_from_hex value in + let*? secret_key = Signer.secret_key_from_hex (`Hex value) in return (Signer.from_secret_key secret_key) | Some key -> Signer.from_gcp_key