futur.blue / pegasus
objective categorical abstract machine language personal data server
65
fork

Configure Feed

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

xrpc _health, .well-known did.json

futurGH 2a8a3068 389a077a

+21 -1
+3 -1
bin/main.ml
··· 1 1 open Pegasus 2 2 3 3 let handlers = 4 - [ ( "/xrpc/com.atproto.server.describeServer" 4 + [ ("/xrpc/_health", Api.Health.handler) 5 + ; ("/.well-known/did.json", Api.Well_known.did_json) 6 + ; ( "/xrpc/com.atproto.server.describeServer" 5 7 , Api.Server.DescribeServer.handler ) 6 8 ; ("/xrpc/com.atproto.server.createSession", Api.Server.CreateSession.handler) 7 9 ; ( "/xrpc/com.atproto.server.refreshSession"
+6
pegasus/lib/api/health.ml
··· 1 + let version = "dev" 2 + 3 + let handler = 4 + Xrpc.handler (fun _ -> 5 + Dream.json @@ Yojson.Safe.to_string 6 + @@ `Assoc [("version", `String version)] )
+12
pegasus/lib/api/well_known.ml
··· 1 + let did_json = 2 + Xrpc.handler (fun _ -> 3 + Dream.json @@ Yojson.Safe.to_string 4 + @@ `Assoc 5 + [ ("@context", `List [`String "https://www.w3.org/ns/did/v1"]) 6 + ; ("id", `String Env.did) 7 + ; ( "service" 8 + , `Assoc 9 + [ ("id", `String "#atproto_pds") 10 + ; ("type", `String "AtprotoPersonalDataServer") 11 + ; ("serviceEndpoint", `String ("https://" ^ Env.hostname)) ] ) 12 + ] )