objective categorical abstract machine language personal data server
Missed a spot with OAuth
+3
-2
+3
-2
pegasus/lib/xrpc.ml
+3
-2
pegasus/lib/xrpc.ml
···
115
115
match Dream.method_ ctx.req with
116
116
| `GET -> (
117
117
let%lwt res, body =
118
-
try%lwt Lwt_unix.with_timeout 15.0 (fun () -> Util.http_get uri ~headers)
118
+
try%lwt
119
+
Lwt_unix.with_timeout 15.0 (fun () -> Util.http_get uri ~headers)
119
120
with Lwt_unix.Timeout ->
120
121
Errors.internal_error ~msg:"proxy request timed out" ()
121
122
in
···
202
203
let%lwt input_did = resolve_repo_did ctx repo in
203
204
let did =
204
205
match ctx.auth with
205
-
| Access {did} when did = input_did ->
206
+
| (Access {did} | OAuth {did; _}) when did = input_did ->
206
207
did
207
208
| Admin ->
208
209
input_did