Fallback

Author: p14n

src/com/p14n/vertx_ring/adapter.clj

@@ -96,11 +96,17 @@
   ^Callable
   (fn []
     (try
-      (let [ring-response (ring-handler updated-request)]
-        (ring-response->vertx vertx-response ring-response))
+      (ring-handler updated-request
+                    (fn [ring-response]
+                      (ring-response->vertx vertx-response ring-response))
+                    (fn [^Exception e]
+                      (log-error e "Error processing request in handler")
+                      (ring-response->vertx vertx-response {:status 500
+                                                            :body "Internal server error"})))
       (catch Exception e
+        (log-error e "Error processing request in handler")
         (ring-response->vertx vertx-response {:status 500
-                                              :body (.getMessage e)})))))
+                                              :body "Internal server error"})))))                                              
 
 (defn ^:private execute-handler
   "Run the handler on thread"