cadence/breezewiki
2
4
Fork 4
Code Issues Pull requests 1 Releases Wiki Activity

Close response after error in proxy

Browse source
This commit is contained in:
Cadence Ember 2022-10-04 21:00:33 +13:00
parent 2a56107e97
commit 10cdd260e0
Signed by: cadence
GPG key ID: BC1C2C61CF521B17
1 changed files with 10 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/page-proxy.rkt
View file

@ -18,13 +18,16 @@
(match (dict-ref (url-query (request-uri req)) 'dest #f) (match (dict-ref (url-query (request-uri req)) 'dest #f)
[(? string? dest) [(? string? dest)
(if (is-fandom-url? dest) (if (is-fandom-url? dest)
(response-handler (response-handler ; catches and reports errors
(let ([dest-r (easy:get dest #:stream? #t)]) (let ([dest-r (easy:get dest #:stream? #t)])
(with-handlers ([exn:fail? (λ (e) ; cleans up and re-throws
(easy:response-close! dest-r)
(raise e))])
(response/output (response/output
#:code (easy:response-status-code dest-r) #:code (easy:response-status-code dest-r)
#:mime-type (easy:response-headers-ref dest-r 'content-type) #:mime-type (easy:response-headers-ref dest-r 'content-type)
(λ (out) (λ (out)
(copy-port (easy:response-output dest-r) out) (copy-port (easy:response-output dest-r) out)
(easy:response-close! dest-r))))) (easy:response-close! dest-r))))))
(next-dispatcher))] (next-dispatcher))]
[#f (next-dispatcher)])) [#f (next-dispatcher)]))