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

Return pod metadata instead of putting in ctx

Browse source
This commit is contained in:
Wes Morgan 2022-03-19 09:33:44 -06:00
parent f0ba916f32
commit c2a2facb0f
No known key found for this signature in database
GPG key ID: 5639E4CBFA17DC84
1 changed files with 8 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
src/babashka/pods/sci.clj
View file

@ -43,20 +43,19 @@
(impl/write w metadata))) (impl/write w metadata)))
metadata)) metadata))
(defn load-pod-metadata [ctx pod-spec {:keys [:version] :as opts}] (defn load-pod-metadata [pod-spec {:keys [:version] :as opts}]
(let [metadata (let [metadata
(if-let [cached-metadata (when (qualified-symbol? pod-spec) ; don't cache local pods b/c their namespaces can change (if-let [cached-metadata (when (qualified-symbol? pod-spec) ; don't cache local pods b/c their namespaces can change
(load-metadata-from-cache pod-spec opts))] (load-metadata-from-cache pod-spec opts))]
cached-metadata cached-metadata
(load-pod-metadata* pod-spec opts))] (load-pod-metadata* pod-spec opts))]
(dorun (reduce
(for [ns (get metadata "namespaces")] (fn [pod-namespaces ns]
(let [ns-sym (-> ns (get "name") impl/bytes->string symbol) (let [ns-sym (-> ns (get "name") impl/bytes->string symbol)]
key-path [:pod-namespaces ns-sym] (assoc pod-namespaces ns-sym {:pod-spec pod-spec
env (:env ctx)] :opts (assoc opts :metadata metadata)})))
(swap! env assoc-in key-path {} (get metadata "namespaces"))))
{:pod-spec pod-spec
:opts (assoc opts :metadata metadata)}))))))
(defn load-pod (defn load-pod
([ctx pod-spec] (load-pod ctx pod-spec nil)) ([ctx pod-spec] (load-pod ctx pod-spec nil))