-
Notifications
You must be signed in to change notification settings - Fork 64
/
routes.clj
37 lines (33 loc) · 1.26 KB
/
routes.clj
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
(ns ziggurat.server.routes
(:require [bidi.ring :as bidi]
[new-reliquary.ring :refer [wrap-newrelic-transaction]]
[ring.middleware.defaults :as ring-defaults]
[ring.middleware.json :refer [wrap-json-params wrap-json-response]]
[ring.middleware.multipart-params :refer [wrap-multipart-params]]
[ring.logger :refer [wrap-with-logger]]
[ziggurat.resource.dead-set :as ds]
[ziggurat.server.middleware :as m]))
(defn ping [_request]
{:status 200
:headers {"Content-Type" "text/plain"}
:body "pong"})
(def routes-prefix ["/"])
(defn get-routes []
[["ping" {:get ping}]
["v1/dead_set" {:delete (ds/delete-messages)}]
["v1/dead_set/replay" {:post (ds/get-replay)}]
["v1/dead_set" {:get (ds/get-view)}]
[true (fn [_req] (ring.util.response/not-found ""))]])
(defn handler [actor-routes]
(-> routes-prefix
(conj (vec (concat actor-routes (get-routes))))
(bidi/make-handler)
(m/wrap-hyphenate)
(ring-defaults/wrap-defaults ring-defaults/api-defaults)
(wrap-json-params)
(wrap-multipart-params)
(wrap-json-response)
(m/wrap-default-content-type-json)
(wrap-newrelic-transaction)
(m/wrap-errors)
(wrap-with-logger)))