From cd841f9cc9457bf008a7890723d831b5cbf4e2f0 Mon Sep 17 00:00:00 2001
From: Vivien Kraus <vivien@planete-kraus.eu>
Date: Thu, 21 Oct 2021 13:00:49 +0200
Subject: fixup! Debug

---
 src/scm/webid-oidc/server/endpoint/client.scm | 3 +++
 1 file changed, 3 insertions(+)

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
-- 
cgit v1.2.3