+1

bin/main.ml

reviewed

··· 13 13 ; ( get 14 14 , "/.well-known/oauth-authorization-server" 15 15 , Api.Well_known.oauth_authorization_server ) 16 16 + ; (get, "/.well-known/atproto-did", Api.Well_known.atproto_did) 16 17 ; (options, "/xrpc/**", Xrpc.handler (fun _ -> Dream.empty `No_Content)) 17 18 ; (* oauth *) 18 19 (options, "/oauth/par", Xrpc.handler (fun _ -> Dream.empty `No_Content))

+19

pegasus/lib/api/well_known.ml

reviewed

··· 65 65 ; ( "dpop_signing_alg_values_supported" 66 66 , `List [`String "ES256"; `String "ES256K"] ) 67 67 ; ("client_id_metadata_document_supported", `Bool true) ] ) 68 68 + 69 69 + let atproto_did = 70 70 + Xrpc.handler (fun {req; db; _} -> 71 71 + try 72 72 + let handle = Dream.header req "Host" |> Option.get in 73 73 + if not (String.ends_with ~suffix:("." ^ Env.hostname) handle) then 74 74 + failwith "not found" 75 75 + else 76 76 + match%lwt Data_store.get_actor_by_identifier handle db with 77 77 + | Some {did; _} -> 78 78 + Dream.respond 79 79 + ~headers:[("Content-Type", "text/plain; charset=utf-8")] 80 80 + ~status:`OK did 81 81 + | None -> 82 82 + failwith "not found" 83 83 + with _ -> 84 84 + Dream.respond 85 85 + ~headers:[("Content-Type", "text/plain; charset=utf-8")] 86 86 + ~status:`Not_Found "user not found" )