Fix case of not finding :deploy-to when no options are provided.

This commit is contained in:
Matt Revelle 2011-01-20 22:44:07 -05:00
parent 9ee9fd1784
commit 33ef2ca981

View file

@ -55,6 +55,6 @@ to avoid checking sensitive information into source control:
(.execute))) (.execute)))
([project] ([project]
(if-let [target (:deploy-to project)] (if-let [target (:deploy-to project)]
(deploy target) (apply deploy project target)
(do (println "Either set :deploy-to in project.clj or" (do (println "Either set :deploy-to in project.clj or"
"provide deploy target options.") 1)))) "provide deploy target options.") 1))))