From 3f1aeb84145fed7d70f6e53c051a5203d9a2a24a Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Thu, 1 Sep 2022 16:04:48 +1200
Subject: [PATCH] Show details about page-proxy http errors

---
 src/page-proxy.rkt  | 16 +++++++++-------
 src/xexpr-utils.rkt |  4 ++--
 2 files changed, 11 insertions(+), 9 deletions(-)

diff --git a/src/page-proxy.rkt b/src/page-proxy.rkt
index 9d09527..e6c7f5f 100644
--- a/src/page-proxy.rkt
+++ b/src/page-proxy.rkt
@@ -8,7 +8,8 @@
          net/url
          web-server/http
          (only-in web-server/dispatchers/dispatch next-dispatcher)
-         "url-utils.rkt")
+         "url-utils.rkt"
+         "xexpr-utils.rkt")
 
 (provide
  page-proxy)
@@ -17,11 +18,12 @@
   (match (dict-ref (url-query (request-uri req)) 'dest #f)
     [(? string? dest)
      (if (is-fandom-url? dest)
-         (let ([dest-r (easy:get dest #:stream? #t)])
-           (response/output
-            #:code (easy:response-status-code dest-r)
-            #:mime-type (easy:response-headers-ref dest-r 'content-type)
-            (λ (out)
-              (copy-port (easy:response-output dest-r) out))))
+         (response-handler
+          (let ([dest-r (easy:get dest #:stream? #t)])
+            (response/output
+             #:code (easy:response-status-code dest-r)
+             #:mime-type (easy:response-headers-ref dest-r 'content-type)
+             (λ (out)
+               (copy-port (easy:response-output dest-r) out)))))
          (next-dispatcher))]
     [#f (next-dispatcher)]))
diff --git a/src/xexpr-utils.rkt b/src/xexpr-utils.rkt
index 1ba4c16..87f52fe 100644
--- a/src/xexpr-utils.rkt
+++ b/src/xexpr-utils.rkt
@@ -190,8 +190,8 @@
                                 #:code 500
                                 #:mime-type #"text/plain"
                                 (λ (out)
-                                  (for ([port (list (current-output-port) out)])
-                                    (parameterize ([current-error-port out])
+                                  (for ([port (list (current-error-port) out)])
+                                    (parameterize ([current-error-port port])
                                       (displayln "Exception raised in Racket code at response generation time:" (current-error-port))
                                       ((error-display-handler) (exn-message e) e))))))])
     body ...))