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

Fix merge-profiles call

Browse source
This commit is contained in:
Marko Topolnik 2013-04-10 13:18:58 +02:00
parent 3f4e64f888
commit 3fd978a21e
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/leiningen/repl.clj
View file

@ -199,8 +199,7 @@ Subcommands:
as described above." as described above."
([project] (repl project ":start")) ([project] (repl project ":start"))
([project subcommand & opts] ([project subcommand & opts]
(let [profiles (map :repl [(:profiles project) (user/profiles)]) (let [project (-> (project/merge-profiles project [:repl])
project (-> (project/merge-profiles project profiles)
(update-in [:eval-in] #(or % :leiningen)))] (update-in [:eval-in] #(or % :leiningen)))]
(if (= subcommand ":connect") (if (= subcommand ":connect")
(client project (doto (connect-string project opts) (client project (doto (connect-string project opts)