From 61c9133ca93ff11ee84381b5e55277e088054ba9 Mon Sep 17 00:00:00 2001 From: Vivien Kraus Date: Thu, 21 Oct 2021 13:18:40 +0200 Subject: redirection URI endpoint: decode the key parameters as symbols --- src/scm/webid-oidc/server/endpoint/client.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/scm/webid-oidc/server/endpoint/client.scm b/src/scm/webid-oidc/server/endpoint/client.scm index ffa93c3..def13a3 100644 --- a/src/scm/webid-oidc/server/endpoint/client.scm +++ b/src/scm/webid-oidc/server/endpoint/client.scm @@ -137,7 +137,7 @@ (lambda (key=value) (match (map uri-decode (string-split key=value #\=)) ((key value) - `((,key . ,value))) + `((,(string->symbol key) . ,value))) (else '()))) (string-split (uri-query (request-uri request)) #\&))))) (let ((code (assq-ref query-args 'code))) -- cgit v1.2.3