summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorVivien Kraus <vivien@planete-kraus.eu>2021-10-21 13:00:49 +0200
committerVivien Kraus <vivien@planete-kraus.eu>2021-11-14 16:49:56 +0000
commitcd841f9cc9457bf008a7890723d831b5cbf4e2f0 (patch)
treeb4605e65b08722cf254d2d97d852c74599215e4b
parent6e31e07bc0d4ba0f58aad3643fe99d14fb900e50 (diff)
fixup! Debugdebug
-rw-r--r--src/scm/webid-oidc/server/endpoint/client.scm3
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