OAuth 2.0 authorization and token exchange
ocaml-oauth: drop now-redundant Json.to_string Ok/Error scaffolding in fuzz roundtrip
+1
-6
+1
-6
fuzz/fuzz_oauth.ml
+1
-6
fuzz/fuzz_oauth.ml
···
51
51
let refresh_token = Option.map to_ascii refresh_token in
52
52
let expires_in = Option.map (fun n -> n land max_int mod 100000) expires_in in
53
53
let json =
54
-
match
55
-
Json.to_string token_response_jsont
56
-
(access_token, expires_in, refresh_token)
57
-
with
58
-
| Ok s -> s
59
-
| Error _ -> failwith "jsont encode failed"
54
+
Json.to_string token_response_jsont (access_token, expires_in, refresh_token)
60
55
in
61
56
match Oauth.parse_token_response json with
62
57
| Ok t ->