|
4 | 4 | [ring.core.protocols :as protocols])
|
5 | 5 | (:import [java.util Locale]
|
6 | 6 | [javax.servlet AsyncContext]
|
7 |
| - [javax.servlet.http HttpServlet |
8 |
| - HttpServletRequest |
9 |
| - HttpServletResponse])) |
| 7 | + [javax.servlet.http |
| 8 | + HttpServlet |
| 9 | + HttpServletRequest |
| 10 | + HttpServletResponse])) |
10 | 11 |
|
11 | 12 | (defn- get-headers [^HttpServletRequest request]
|
12 | 13 | (reduce
|
13 |
| - (fn [headers, ^String name] |
14 |
| - (assoc headers |
15 |
| - (.toLowerCase name Locale/ENGLISH) |
16 |
| - (->> (.getHeaders request name) |
17 |
| - (enumeration-seq) |
18 |
| - (string/join ",")))) |
19 |
| - {} |
20 |
| - (enumeration-seq (.getHeaderNames request)))) |
| 14 | + (fn [headers ^String name] |
| 15 | + (assoc headers |
| 16 | + (.toLowerCase name Locale/ENGLISH) |
| 17 | + (->> (.getHeaders request name) |
| 18 | + (enumeration-seq) |
| 19 | + (string/join ",")))) |
| 20 | + {} |
| 21 | + (enumeration-seq (.getHeaderNames request)))) |
21 | 22 |
|
22 | 23 | (defn- get-content-length [^HttpServletRequest request]
|
23 | 24 | (let [length (.getContentLength request)]
|
|
148 | 149 | (defservice my-handler)
|
149 | 150 | (defservice \"my-prefix-\" my-handler)"
|
150 | 151 | ([handler]
|
151 |
| - `(defservice "-" ~handler)) |
| 152 | + `(defservice "-" ~handler)) |
152 | 153 | ([prefix handler]
|
153 | 154 | (if (map? handler)
|
154 | 155 | `(defservice "-" ~prefix ~handler)
|
155 | 156 | `(defservice ~prefix ~handler {})))
|
156 | 157 | ([prefix handler options]
|
157 |
| - `(let [service-method# (make-service-method ~handler ~options)] |
158 |
| - (defn ~(symbol (str prefix "service")) |
159 |
| - [servlet# request# response#] |
160 |
| - (service-method# servlet# request# response#))))) |
| 158 | + `(let [service-method# (make-service-method ~handler ~options)] |
| 159 | + (defn ~(symbol (str prefix "service")) |
| 160 | + [servlet# request# response#] |
| 161 | + (service-method# servlet# request# response#))))) |
0 commit comments