diff options
-rw-r--r-- | src/scm/webid-oidc/server/endpoint/identity-provider.scm | 7 |
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) |