From 99726d2f10903273a1112a55d01db5713a6422c6 Mon Sep 17 00:00:00 2001 From: Vivien Kraus Date: Thu, 21 Oct 2021 12:13:54 +0200 Subject: fixup! Debug --- src/scm/webid-oidc/server/endpoint/identity-provider.scm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) 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 ) request request-body) -- cgit v1.2.3