add initial wrap-exceptions handler

This commit is contained in:
Gered 2014-03-30 16:37:14 -04:00
parent 5a732e9a84
commit 76697d3763
2 changed files with 19 additions and 7 deletions

View file

@ -8,7 +8,8 @@
[clj-jtwig.web.middleware :refer [wrap-servlet-context-path]] [clj-jtwig.web.middleware :refer [wrap-servlet-context-path]]
[toascii.route-utils :refer [find-routes]] [toascii.route-utils :refer [find-routes]]
[toascii.models.flf :as flf] [toascii.models.flf :as flf]
[toascii.util :refer [log-formatter]])) [toascii.util :refer [log-formatter]]
[toascii.middleware :refer [wrap-exceptions]]))
(defroutes app-routes (defroutes app-routes
(route/resources "/") (route/resources "/")
@ -16,9 +17,9 @@
(defonce routes (find-routes "toascii.routes." app-routes)) (defonce routes (find-routes "toascii.routes." app-routes))
(defonce app (app-handler (def app (app-handler
routes routes
:middleware [wrap-servlet-context-path] :middleware [wrap-exceptions wrap-servlet-context-path]
:access-rules [] :access-rules []
:formats [:json-kw :edn])) :formats [:json-kw :edn]))

View file

@ -1 +1,12 @@
(ns toascii.middleware) (ns toascii.middleware
(:require [taoensso.timbre :refer [log]]))
(defn wrap-exceptions [handler]
(fn [request]
(try
(handler request)
(catch Exception ex
(log :error ex "Unhandled exception lol.")
(println (:uri request) (:context request))
{:status 500
:body "An error occurred! oh noes!"}))))