objective categorical abstract machine language personal data server
Copy query params into service proxy request
+4
-1
+4
-1
pegasus/lib/xrpc.ml
+4
-1
pegasus/lib/xrpc.ml
···
95
95
in
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
-
let uri = Uri.make ~scheme ~host ~path:(Dream.target ctx.req) () in
98
+
let uri =
99
+
Uri.make ~scheme ~host ~path:(Dream.target ctx.req)
100
+
~query:(Util.copy_query ctx.req) ()
101
+
in
99
102
let headers =
100
103
Util.make_headers
101
104
[ ("accept-language", Dream.header ctx.req "accept-language")