A woman is not dead while her name is still spoken.

This commit is contained in:
Morgan Astra 2017-11-04 16:05:47 -07:00
parent fedfc3ae45
commit 6624f5f69b

View File

@ -47,6 +47,11 @@
(ANY "*" [] (ANY "*" []
(route/not-found (slurp (io/resource "404.html"))))) (route/not-found (slurp (io/resource "404.html")))))
(defn wrap-gnu-natalie-nguyen [handler]
(fn [req]
(when-let [resp (handler req)]
(assoc-in resp [:headers "X-Clacks-Overhead"] "GNU Natalie Nguyen"))))
(defn wrap-error-page [handler] (defn wrap-error-page [handler]
(fn [req] (fn [req]
(try (handler req) (try (handler req)
@ -60,6 +65,7 @@
(-> app-routes (-> app-routes
logger/wrap-with-logger logger/wrap-with-logger
wrap-error-page wrap-error-page
wrap-gnu-natalie-nguyen
trace/wrap-stacktrace trace/wrap-stacktrace
params/wrap-params)) params/wrap-params))