objective categorical abstract machine language personal data server
Fix service proxy URL construction
+3
-1
+3
-1
pegasus/lib/xrpc.ml
+3
-1
pegasus/lib/xrpc.ml
···
96
96
let signing_key = Kleidos.parse_multikey_str signing_multikey in
97
97
let jwt = Jwt.generate_service_jwt ~did ~aud ~lxm ~signing_key in
98
98
let uri =
99
-
Uri.make ~scheme ~host ~path:(Dream.target ctx.req)
99
+
Uri.make ~scheme ~host
100
+
~path:(String.concat "/" @@ (Dream.path [@warning "-3"]) ctx.req)
100
101
~query:(Util.copy_query ctx.req) ()
101
102
in
102
103
let headers =
103
104
Util.make_headers
104
105
[ ("accept-language", Dream.header ctx.req "accept-language")
106
+
; ("content-type", Dream.header ctx.req "content-type")
105
107
; ( "atproto-accept-labelers"
106
108
, Dream.header ctx.req "atproto-accept-labelers" )
107
109
; ("authorization", Some ("Bearer " ^ jwt)) ]