objective categorical abstract machine language personal data server
65
fork

Configure Feed

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

Missed a spot with OAuth

futurGH 89ddc7ce 2d3148c7

+3 -2
+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