diff options
Diffstat (limited to 'src/scm/webid-oidc/server/endpoint/identity-provider.scm')
-rw-r--r-- | src/scm/webid-oidc/server/endpoint/identity-provider.scm | 30 |
1 files changed, 16 insertions, 14 deletions
diff --git a/src/scm/webid-oidc/server/endpoint/identity-provider.scm b/src/scm/webid-oidc/server/endpoint/identity-provider.scm index 57892c7..68bb154 100644 --- a/src/scm/webid-oidc/server/endpoint/identity-provider.scm +++ b/src/scm/webid-oidc/server/endpoint/identity-provider.scm @@ -341,26 +341,28 @@ (with-exception-handler (lambda (exn) (raise-exception - (make-web-exception 400 (W_ "reason-phrase|Bad Request")) - (make-user-message - (call-with-input-string - (format #f (W_ "<p>The client, <a href=~s>~a</a>, cannot be queried.</p>") - (uri->string client-id) - (uri->string client-id)) - xml->sxml)) - exn)) + (make-exception + (make-web-exception 400 (W_ "reason-phrase|Bad Request")) + (make-user-message + (call-with-input-string + (format #f (W_ "<p>The client, <a href=~s>~a</a>, cannot be queried.</p>") + (uri->string client-id) + (uri->string client-id)) + xml->sxml)) + exn))) (lambda () (make <client-manifest> #:client-id client-id))))) (with-exception-handler (lambda (exn) (raise-exception - (make-web-exception 400 (W_ "reason-phrase|Bad Request")) - (make-user-message - (call-with-input-string - (format #f (W_ "<p>The real client at <a href=~s>~a</a> does not control the advertised redirection URI.</p>")) - xml->sxml)) - exn)) + (make-exception + (make-web-exception 400 (W_ "reason-phrase|Bad Request")) + (make-user-message + (call-with-input-string + (format #f (W_ "<p>The real client at <a href=~s>~a</a> does not control the advertised redirection URI.</p>")) + xml->sxml)) + exn))) (lambda () (check-redirect-uri mf redirect-uri))) (values |