Permalink
Browse files

Support binding to arbitrary host/ip

  • Loading branch information...
1 parent ae406af commit b606514deb4c03eac5b217e1f04b6ef7eb0b80b8 @michaelklishin committed Feb 3, 2012
Showing with 2 additions and 1 deletion.
  1. +2 −1 src/com/novemberain/momentum/examples/server/http_proxy.clj
@@ -104,8 +104,9 @@
(defn -main
[& args]
(let [[options positional-args banner] (cli args
+ ["--host" "Host to bind to"]
["--port" "Port to bind to"])]
(if-let [p (:port options)]
- (start "127.0.0.1" (Long/valueOf p))
+ (start (or (:host options) "127.0.0.1") (Long/valueOf p))
(exit! "--port switch is required"))
nil))

0 comments on commit b606514

Please sign in to comment.