Allow render exceptions to burble up to top level & be handled there

pull/9/head
Matthew Butterick 10 years ago
parent d86cb8e5b4
commit d47e9246b8

@ -190,8 +190,7 @@
(define (route-default req)
(logger req)
(define force (equal? (get-query-value (request-uri req) 'force) "true"))
(with-handlers ([exn:fail? (λ(e) (message "Render is skipping" (url->string (request-uri req)) "because of error\n" (exn-message e)))])
(render (req->path req) #:force force))
(render (req->path req) #:force force)
(next-dispatcher))

Loading…
Cancel
Save