Fix missing args in connect-string

This commit is contained in:
Marko Topolnik 2013-03-27 16:51:56 +01:00
parent 73fefe211b
commit df28990173

View file

@ -33,7 +33,7 @@
(as-> (str (first opts)) x (as-> (str (first opts)) x
(s/split x #":") (s/split x #":")
(remove s/blank? x) (remove s/blank? x)
(-> (drop-last (count x) [(repl-host) (repl-port)]) (-> (drop-last (count x) [(repl-host project) (repl-port project)])
(concat x)) (concat x))
(s/join ":" x))) (s/join ":" x)))