move the captcha checking code inside the handler

that deals with expected networking errors

closes PR 13205
This commit is contained in:
Robby Findler 2012-11-22 10:35:51 -06:00
parent 316bbcb038
commit 279e5aa0d9

View File

@ -206,6 +206,7 @@
[current-alist-separator-mode 'amp])
(thread
(λ ()
(with-handlers ([exn:fail? (λ (x) (channel-put exn-chan x))])
;; Note that this UI is not great: every submission asks for a
;; captcha and nothing is kept. This is fine since this is only in
;; case it needs to be used in the future -- if/when that happens,
@ -232,7 +233,7 @@
,@q)
q)])
(string->bytes/utf-8 (alist->form-urlencoded q))))
(with-handlers ([exn:fail? (λ (x) (channel-put exn-chan x))])
(call/input-url
bug-report-url
(lambda (x) (post-impure-port x post-data))