From 0f8a94bc223fd19891a9c5bb667f4ce3704ecb8d Mon Sep 17 00:00:00 2001
From: Vivien Kraus <vivien@planete-kraus.eu>
Date: Thu, 11 Nov 2021 16:46:38 +0000
Subject: Endpoint: fix exception raising.

---
 .../server/endpoint/identity-provider.scm          | 30 ++++++++++++----------
 1 file 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
-- 
cgit v1.2.3