suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

move the captcha checking code inside the handler

Browse Source 
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
1 changed files with 27 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/help/bug-report.rkt
View File

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