objective categorical abstract machine language personal data server
Fix query string parsing
+1
-3
+1
-3
pegasus/lib/xrpc.ml
+1
-3
pegasus/lib/xrpc.ml
···
27
27
(of_yojson : Yojson.Safe.t -> ('a, string) result) : 'a =
28
28
try
29
29
let queries = Dream.all_queries req in
30
-
let query_json =
31
-
`Assoc (List.map (fun (k, v) -> (k, Yojson.Safe.from_string v)) queries)
32
-
in
30
+
let query_json = `Assoc (List.map (fun (k, v) -> (k, `String v)) queries) in
33
31
query_json |> of_yojson |> Result.get_ok
34
32
with _ -> Errors.invalid_request "Invalid query string"
35
33