objective categorical abstract machine language personal data server
Fix incorrect default aud in service proxying
+1
-1
+1
-1
pegasus/lib/xrpc.ml
+1
-1
pegasus/lib/xrpc.ml
···
209
209
| None ->
210
210
Errors.invalid_request "invalid proxy header"
211
211
in
212
-
let aud = Option.value aud ~default:service_did in
212
+
let aud = Option.value aud ~default:(service_did ^ "#" ^ service_type) in
213
213
let lxm = Option.value lxm ~default:nsid in
214
214
Auth.assert_rpc_scope ctx.auth ~aud ~lxm ;
215
215
let fragment = "#" ^ service_type in