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

Fixing error introduced by 9e7548de

Browse Source
This commit is contained in:
Jay McCarthy 2012-05-29 13:30:35 -06:00
parent 38ae869d66
commit 4f8e1df169
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/web-server/lang/stuff-url.rkt
View File

@ -42,16 +42,18 @@
(define (insert-in-uri uri c) (define (insert-in-uri uri c)
(insert-param uri URL-KEY (bytes->string/utf-8 c))) (insert-param uri URL-KEY (bytes->string/utf-8 c)))
(define serialize-rx #rx"serialize: contract violation\n expected: serializable\\?\n given: (.*)")
(define (stuff-url stuffer uri c) (define (stuff-url stuffer uri c)
(with-handlers (with-handlers
([(lambda (x) ([(lambda (x)
(and (exn:fail? x) (and (exn:fail? x)
(regexp-match #rx"serialize: expected argument of type <serializable object>; given: (.*)" (regexp-match serialize-rx
(exn-message x)))) (exn-message x))))
(lambda (x) (lambda (x)
(define non (define non
(second (second
(regexp-match #rx"serialize: expected argument of type <serializable object>; given: (.*)" (regexp-match serialize-rx
(exn-message x)))) (exn-message x))))
(error 'stuff-url (error 'stuff-url
"Cannot stuff ~e into a URL because it contains non-serializable pieces. Convert ~a to a serializable struct" "Cannot stuff ~e into a URL because it contains non-serializable pieces. Convert ~a to a serializable struct"