luciano/babashka
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Don't remove core specs when they are in deps map

Browse source
This commit is contained in:
Michiel Borkent 2021-12-08 17:20:05 +01:00
parent 8b3e89fbcc
commit f5fd11fd78
1 changed files with 20 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

39
src/babashka/impl/deps.clj
View file

@ -60,25 +60,26 @@
(when-let [paths (:paths deps-map)] (when-let [paths (:paths deps-map)]
(cp/add-classpath (str/join cp/path-sep paths))) (cp/add-classpath (str/join cp/path-sep paths)))
(when-let [deps-map (not-empty (dissoc deps-map :paths :tasks :raw :min-bb-version))] (when-let [deps-map (not-empty (dissoc deps-map :paths :tasks :raw :min-bb-version))]
(let [deps-map (assoc-in deps-map [:aliases :org.babashka/defaults] (binding [*print-namespace-maps* false]
{:replace-paths [] ;; babashka sets paths manually (let [deps-map (assoc-in deps-map [:aliases :org.babashka/defaults]
:classpath-overrides (cond-> {:replace-paths [] ;; babashka sets paths manually
'{org.clojure/clojure "" :classpath-overrides (cond->
org.clojure/spec.alpha ""} '{org.clojure/clojure ""
;; only remove core specs when they are not mentioned in deps map org.clojure/spec.alpha ""}
(not (str/includes? (str deps-map) "org.clojure/core.specs.alpha")) ;; only remove core specs when they are not mentioned in deps map
(assoc 'org.clojure/core.specs.alpha ""))}) (not (str/includes? (str deps-map) "org.clojure/core.specs.alpha"))
args (list "-Srepro" ;; do not include deps.edn from user config (assoc 'org.clojure/core.specs.alpha ""))})
"-Spath" "-Sdeps" (str deps-map) args (list "-Srepro" ;; do not include deps.edn from user config
"-Sdeps-file" "") ;; we reset deps file so the local deps.edn isn't used "-Spath" "-Sdeps" (str deps-map)
args (if force (cons "-Sforce" args) args) "-Sdeps-file" "") ;; we reset deps file so the local deps.edn isn't used
args (concat args [(str "-A:" (str/join ":" (cons ":org.babashka/defaults" aliases)))]) args (if force (cons "-Sforce" args) args)
cp (with-out-str (binding [deps/*env* env args (concat args [(str "-A:" (str/join ":" (cons ":org.babashka/defaults" aliases)))])
deps/*extra-env* extra-env] cp (with-out-str (binding [deps/*env* env
(apply deps/-main args))) deps/*extra-env* extra-env]
cp (str/trim cp) (apply deps/-main args)))
cp (str/replace cp (re-pattern (str cp/path-sep "+$")) "")] cp (str/trim cp)
(cp/add-classpath cp))))) cp (str/replace cp (re-pattern (str cp/path-sep "+$")) "")]
(cp/add-classpath cp))))))
(def deps-namespace (def deps-namespace
{'add-deps (sci/copy-var add-deps dns) {'add-deps (sci/copy-var add-deps dns)