diff options
| author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-10-21 13:18:40 +0200 |
|---|---|---|
| committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-10-21 13:18:40 +0200 |
| commit | 61c9133ca93ff11ee84381b5e55277e088054ba9 (patch) | |
| tree | 68eec7fe0787300751067cd5b14b3b40f1341501 | |
| parent | 39c856d3e4eac3718c0333eec2ec1287cc39ce75 (diff) | |
redirection URI endpoint: decode the key parameters as symbols
| -rw-r--r-- | src/scm/webid-oidc/server/endpoint/client.scm | 2 |
1 files changed, 1 insertions, 1 deletions
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))) |