The port it started on will be called as an argument to (announce-fn
port). A connection will then be created and (connection-serve conn)
will then be called.
(defn setup-server
"The port it started on will be called as an argument to (announce-fn
port). A connection will then be created and (connection-serve conn)
will then be called."
[port announce-fn connection-serve opts]
(start-swank-socket-server!
(make-server-socket {:port port
:host (opts :host)
:backlog (opts :backlog 0)})
#(socket-serve connection-serve % opts)
{:announce announce-fn}))
Comments top
No comments for setup-server. Log in to add a comment.