From b12017773429fb07266e996a5802283088f8634c Mon Sep 17 00:00:00 2001 From: Vivien Kraus Date: Thu, 21 Oct 2021 12:00:27 +0200 Subject: fixup! Debug --- src/scm/webid-oidc/server/endpoint/identity-provider.scm | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) diff --git a/src/scm/webid-oidc/server/endpoint/identity-provider.scm b/src/scm/webid-oidc/server/endpoint/identity-provider.scm index 8659977..8ff2089 100644 --- a/src/scm/webid-oidc/server/endpoint/identity-provider.scm +++ b/src/scm/webid-oidc/server/endpoint/identity-provider.scm @@ -280,11 +280,19 @@ (and (match (request-content-type request) ((or 'application/x-www-form-urlencoded ('application/x-www-form-urlencoded _ ...)) + (format (current-error-port) "The content-type is OK.\n") #t) - (else #f)) + (else + (format (current-error-port) "The content-type is not OK: ~s\n" (request-content-type request)) + #f)) (if (bytevector? request-body) - (false-if-exception - (utf8->string request-body)) + (with-exception-handler + (lambda (exn) + (format (current-error-port) "The request body is not UTF-8: ~s\n" exn) + #f) + (lambda () + (utf8->string request-body)) + #:unwind? #t) request-body)) #t))) (format (current-error-port) "Arguments: ~s ~s\n" query-args form-args) -- cgit v1.2.3