yogsototh/leiningen
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Nicer opt-port

Browse source
This commit is contained in:
Marko Topolnik 2013-03-26 10:03:56 +01:00
parent c8210a1de7
commit 8ca2699b27
1 changed files with 2 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/leiningen/repl.clj
View file

@ -137,11 +137,8 @@
(require ~@(init-requires project 'reply.main))))))
(defn- opt-port [opts]
(when-let [port (first
(for [[i o] (map-indexed vector opts) :when (= o ":port")]
(try (nth opts (inc i))
(catch Exception _))))]
(Integer. port)))
(when-let [port (second (drop-while #(not= % ":port") opts))]
(Integer/valueOf port)))
(defn server [project port headless?]
(nrepl.ack/reset-ack-port!)