Browse files

Fix whitespace errors in r.h.httpcore.

  • Loading branch information...
1 parent e1a79eb commit f4233b38ce41337f5a4f82908c6305d59b763999 @mmcgrana committed Oct 26, 2010
Showing with 4 additions and 4 deletions.
  1. +4 −4 ring-httpcore-adapter/src/ring/adapter/httpcore.clj
@@ -95,7 +95,7 @@
(StringEntity. body)
(seq? body)
- (reify ContentProducer
+ (reify ContentProducer
(writeTo [this ^OutputStream s]
(let [w (if charset
(OutputStreamWriter. s ^String charset)
@@ -119,7 +119,7 @@
"Returns an Handler implementation for the given Ring handler.
The HttpContext must contains a map associated to \"ring.request-prototype\"."
- (reify HttpRequestHandler
+ (reify HttpRequestHandler
(handle [this request response ^HttpContext context]
(let [req (build-req-map request
(.getAttribute context "ring.request-prototype"))
@@ -167,7 +167,7 @@
(defn run-httpcore
"Serve the given handler according to the options.
- :port
+ :port
:server-name - For old HTTP/1.0 clients
:server-port - For old HTTP/1.0 clients, when public facing port is different
from :port
@@ -176,7 +176,7 @@
[handler {:keys [port server-name server-port execute]}]
(let [execute (or execute (partial executor-execute
- (reify ThreadFactory
+ (reify ThreadFactory
(newThread [this r]
(doto (Thread. ^Runnable r)
(.setDaemon true)))))))

0 comments on commit f4233b3

Please sign in to comment.