Populate project-map meta when outside project

// cherry-picked from master
This commit is contained in:
Marko Topolnik 2013-04-10 13:48:02 +02:00
parent 3fd978a21e
commit f19eeeb746

View file

@ -239,8 +239,9 @@ Get the latest version of Leiningen at http://leiningen.org or by executing
(let [project (project/init-project
(if (.exists (io/file "project.clj"))
(project/read)
(assoc (project/make (:user (user/profiles)))
:eval-in :leiningen :prep-tasks [])))
(-> (project/make {:eval-in :leiningen :prep-tasks []})
project/project-with-profiles
(project/init-profiles [:default]))))
[task-name args] (task-args raw-args project)]
(when (:min-lein-version project) (verify-min-version project))
(configure-http)