function | removed v0.0-1503 | added v0.0-927 | Edit |
(server-loop opts server-socket)
(defn server-loop
[opts server-socket]
(let [conn (.accept server-socket)]
(do (.setKeepAlive conn true)
(future (handle-connection opts conn))
(recur opts server-socket))))