Skip to content
Browse files

changed server.clj

  • Loading branch information...
1 parent 650c4c8 commit 3c35e8479ae8871dbf5ce5be1861b93468155c91 @siscia committed Aug 17, 2012
Showing with 4 additions and 2 deletions.
  1. +4 −2 diy/examplenoir/src/examplenoir/server.clj
View
6 diy/examplenoir/src/examplenoir/server.clj
@@ -5,7 +5,9 @@
(defn -main [& m]
(let [mode (keyword (or (first m) :dev))
- port (Integer. (get (System/getenv) "PORT" "8080"))]
+ port (Integer. (get (System/getenv) "OPENSHIFT_INTERNAL_PORT" "8080"))
+ host (get (System/getenv) "OPENSHIFT_INTERNAL_IP")]
(server/start port {:mode mode
- :ns 'examplenoir})))
+ :ns 'examplenoir
+ :jetty-options {:host host}})))

0 comments on commit 3c35e84

Please sign in to comment.
Something went wrong with that request. Please try again.