gered/ring-custom-jetty-server
Archived
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Fixed infinite loop in try-port

Browse source
This commit is contained in:
James Reeves 2012-02-11 00:20:36 +00:00
parent 867909cae2
commit 78f86118d7
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/ring/server/standalone.clj
View file

@ -7,8 +7,10 @@
(if-not (sequential? port) (if-not (sequential? port)
(run-server port) (run-server port)
(try (run-server (first port)) (try (run-server (first port))
(catch Exception _ (catch Exception ex
(try-port (next port) run-server))))) (if-let [port (next port)]
(try-port port run-server)
(throw ex))))))
(defn serve (defn serve
"Start a web server to run a handler." "Start a web server to run a handler."