49 lines
1.1 KiB
OCaml
49 lines
1.1 KiB
OCaml
|
type key_handle = string
|
||
|
|
|
||
|
|
type error = [
|
||
|
|
`None
|
||
|
|
]
|
||
|
|
|
||
|
|
let pp_error _ppf _e = ()
|
||
|
|
|
||
|
|
type t = unit
|
||
|
|
|
||
|
|
type challenge = string
|
||
|
|
|
||
|
|
type typ = Public_key [@name "public-key"]
|
||
|
|
[@@deriving yojson]
|
||
|
|
|
||
|
|
type response_raw = {
|
||
|
|
attestation_object : string [@key "attestationObject"];
|
||
|
|
client_data_json : string [@key "clientDataJSON"];
|
||
|
|
} [@@deriving of_yojson]
|
||
|
|
|
||
|
|
type attestation_raw = {
|
||
|
|
id : string;
|
||
|
|
raw_id : string [@key "rawId"];
|
||
|
|
typ : typ [@key "type"];
|
||
|
|
response : response_raw;
|
||
|
|
} [@@deriving of_yojson]
|
||
|
|
|
||
|
|
let b64_enc = Base64.(encode_string ~pad:false ~alphabet:uri_safe_alphabet)
|
||
|
|
|
||
|
|
let lift_err f = function Ok _ as a -> a | Error x -> Error (f x)
|
||
|
|
|
||
|
|
let b64_dec thing s =
|
||
|
|
lift_err
|
||
|
|
(function `Msg m -> `Base64_decoding (thing, m, s))
|
||
|
|
Base64.(decode ~pad:false ~alphabet:uri_safe_alphabet s)
|
||
|
|
|
||
|
|
let _ = ignore b64_enc; ignore b64_dec
|
||
|
|
|
||
|
|
let create _app = ()
|
||
|
|
|
||
|
|
let register_request ?key_handles:_ _t = "foo", "bar"
|
||
|
|
|
||
|
|
let register_response _t _challenge _data = Error `None
|
||
|
|
|
||
|
|
let authentication_request _t _handles = "foo", "bar"
|
||
|
|
|
||
|
|
let authentication_response _t _handles _challenges _data =
|
||
|
|
Error `None
|