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

fix pattern match on error message that was modified in 8cf49dfdb1

Browse Source
This commit is contained in:
Matthew Flatt 2012-02-04 07:00:35 -07:00
parent 8cf49dfdb1
commit a5420e41fc
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -44,12 +44,12 @@
(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 #rx"serialize: expected argument of type <serializable object>; given: (.*)"
(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 #rx"serialize: expected argument of type <serializable object>; given: (.*)"
(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"