From 4f8e1df1692ad195c345bc2f8853e537df26131e Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Tue, 29 May 2012 13:30:35 -0600 Subject: [PATCH] Fixing error introduced by 9e7548de --- collects/web-server/lang/stuff-url.rkt | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/collects/web-server/lang/stuff-url.rkt b/collects/web-server/lang/stuff-url.rkt index 431abc283d..f00e6c53e7 100644 --- a/collects/web-server/lang/stuff-url.rkt +++ b/collects/web-server/lang/stuff-url.rkt @@ -42,16 +42,18 @@ (define (insert-in-uri uri 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) (with-handlers ([(lambda (x) (and (exn:fail? x) - (regexp-match #rx"serialize: expected argument of type ; given: (.*)" + (regexp-match serialize-rx (exn-message x)))) (lambda (x) (define non (second - (regexp-match #rx"serialize: expected argument of type ; given: (.*)" + (regexp-match serialize-rx (exn-message x)))) (error 'stuff-url "Cannot stuff ~e into a URL because it contains non-serializable pieces. Convert ~a to a serializable struct"