|
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