diff options
| author | Morgan Astra <m@morganastra.me> | 2018-11-14 12:52:52 -0800 |
|---|---|---|
| committer | Morgan Astra <m@morganastra.me> | 2018-11-14 12:52:52 -0800 |
| commit | 4eb455368156faea64e37437f9cf16178f6035f0 (patch) | |
| tree | 6f4fba02b3304613e343db88852a760744ed9b5d /src/pronouns/web.clj | |
| parent | 4321ec5e39bdb817fbcc61cc40a42b5a23a0a1ce (diff) | |
| parent | a1f10d3b04b65030f660d41f92be2bf34c230222 (diff) | |
Merge branch 'master' into develop
Diffstat (limited to 'src/pronouns/web.clj')
| -rw-r--r-- | src/pronouns/web.clj | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/pronouns/web.clj b/src/pronouns/web.clj index 872a6aa..ab4bbb6 100644 --- a/src/pronouns/web.clj +++ b/src/pronouns/web.clj @@ -50,6 +50,11 @@ (ANY "*" [] (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] (fn [req] (try (handler req) @@ -66,6 +71,7 @@ wrap-not-modified ;logger/wrap-with-logger wrap-error-page + wrap-gnu-natalie-nguyen trace/wrap-stacktrace params/wrap-params)) |