diff options
author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-10-21 13:00:49 +0200 |
---|---|---|
committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-11-14 16:49:56 +0000 |
commit | cd841f9cc9457bf008a7890723d831b5cbf4e2f0 (patch) | |
tree | b4605e65b08722cf254d2d97d852c74599215e4b | |
parent | 6e31e07bc0d4ba0f58aad3643fe99d14fb900e50 (diff) |
fixup! Debugdebug
-rw-r--r-- | src/scm/webid-oidc/server/endpoint/client.scm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/scm/webid-oidc/server/endpoint/client.scm b/src/scm/webid-oidc/server/endpoint/client.scm index eebc290..99bdeac 100644 --- a/src/scm/webid-oidc/server/endpoint/client.scm +++ b/src/scm/webid-oidc/server/endpoint/client.scm @@ -130,6 +130,7 @@ (define-class <redirect-uri> (<endpoint>)) (define-method (handle (endpoint <redirect-uri>) request request-body) + (format (current-error-port) "Handling a redirect URIā¦ ~a\n" (uri->string (request-uri request))) (let ((query-args (apply append @@ -140,7 +141,9 @@ `((,(string->symbol key) . ,value))) (else '()))) (string-split (uri-query (request-uri request)) #\&))))) + (format (current-error-port) "Query args: ~s\n" query-args) (let ((code (assq-ref query-args 'code))) + (format (current-error-port) "Code: ~s\n" code) (if code (values (build-response |