fixup! Debug

1 files changed, 6 insertions, 1 deletions

diff --git a/src/scm/webid-oidc/server/endpoint/identity-provider.scm b/src/scm/webid-oidc/server/endpoint/identity-provider.scm
index 8ff2089..ba96a49 100644
--- a/src/scm/webid-oidc/server/endpoint/identity-provider.scm
+++ b/src/scm/webid-oidc/server/endpoint/identity-provider.scm
@@ -251,9 +251,11 @@
     (string=? c encrypted-password)))
 
 (define (split-args str decode-plus-to-space?)
+  (format (current-error-port) "Splitting args: ~s, ~s\n" str decode-plus-to-space?)
   (apply append
          (map
           (lambda (k=v)
+            (format (current-error-port) "Splitting ~s…\n" k=v)
             (catch #t
               (lambda ()
                 (match (string-split k=v #\=)
@@ -262,11 +264,14 @@
                     (= uri-decode value))
                    `((,key . ,value)))
                   (else '())))
-              (lambda error '())))
+              (lambda error
+                (format (current-error-port) "Can’t split at #\=: ~s\n" error)
+                '())))
           (catch #t
             (lambda ()
               (string-split str #\&))
             (lambda error
+              (format (current-error-port) "Can’t split at #\&: ~s\n" error)
               '())))))
 
 (define-method (handle (endpoint <authorization-endpoint>) request request-body)