gazagnaire.org / ocaml-gauth
Google API authentication helpers: service accounts and local OAuth
0
fork

Configure Feed

Select the types of activity you want to include in your feed.

WIP: sprawling dune build fixes across packages

Fixes for:
- Xml.Value.element -> Xml.Value.t (xtce).
- Xml.Error.t to_string wrap (xtce.of_string).
- Json.to_string now plain; drop result patterns across sbom, runc, cdm,
freebox, gauth, gdocs, hap, sigstore, space, meross, stix.
- Loc.Error.t is a record now; read e.meta directly (rego, sbom).
- 'Err' submodule renamed to 'Error' in claude; update refs + test.ml suite list.
- Yaml_jsont -> Yaml_json (space-dtn, space).
- Move sw from Monitor.S.create to Monitor.S.start.
- Drop unused sw, bundle fields from Runc.Command records.
- Drop orphan Compact.rebuild in scitt.Vds; drop 'mutable' from levels (field
content is mutated via array write, not field reassignment).
- Claude Code test: Alcotest.fail e where e is Json.Error.t -> wrap with
Json.Error.to_string.
- toml.jsont dune refs had broken '... loc))' merger in many test/bin dunes.

Toml.ml/Codec.ml and ocaml-http/lib/Xtce.ml xtce have pending mli
mismatches from concurrent linter reshape.

Thomas Gazagnaire 22645877 9da947af

+3 -3
+3 -3
lib/gauth.ml
··· 82 82 type key = { 83 83 client_email : string; 84 84 token_uri : string; 85 - private_key : X509.Private_key.t; 86 85 private_key_jwk : Jwt.Jwk.t; 86 + (** The RSA private key as a JWK; this is the form we actually sign 87 + assertions with. Built once from the PEM in [of_raw]. *) 87 88 kid : string option; 88 89 } 89 90 ··· 124 125 else 125 126 match X509.Private_key.decode_pem r.private_key with 126 127 | Error (`Msg m) -> err_sa_pem m 127 - | Ok (`RSA rsa_priv as priv) -> 128 + | Ok (`RSA rsa_priv) -> 128 129 let jwk = jwk_of_rsa_priv rsa_priv in 129 130 let jwk = 130 131 match r.private_key_id with ··· 139 140 { 140 141 client_email = r.client_email; 141 142 token_uri; 142 - private_key = priv; 143 143 private_key_jwk = jwk; 144 144 kid = r.private_key_id; 145 145 }