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

return map from load-pod

Browse source
This commit is contained in:
Michiel Borkent 2020-05-20 20:23:19 +02:00
parent 3e5637b33f
commit 3b90c4ba59
3 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/babashka/pods/jvm.clj
View file

@ -17,7 +17,7 @@
(string? v) (string? v)
(load-string v))))) (load-string v)))))
(future (impl/processor pod)) (future (impl/processor pod))
(:pod-id pod)))) {:pod/id (:pod-id pod)})))
(defn unload-pod (defn unload-pod
([pod-id] (unload-pod pod-id {})) ([pod-id] (unload-pod pod-id {}))

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

@ -24,7 +24,7 @@
(string? var-value) (string? var-value)
(sci/eval-string* ctx var-value))))) (sci/eval-string* ctx var-value)))))
(sci/future (impl/processor pod)) (sci/future (impl/processor pod))
(:pod-id pod)))) {:pod/id (:pod-id pod)})))
{:sci.impl/op :needs-ctx})) {:sci.impl/op :needs-ctx}))
(defn unload-pod (defn unload-pod

2
test-resources/test_program.clj
View file

@ -1,5 +1,5 @@
(require '[babashka.pods :as pods]) (require '[babashka.pods :as pods])
(def pod-id (pods/load-pod ["clojure" "-A:test-pod"])) (def pod-id (:pod/id (pods/load-pod ["clojure" "-A:test-pod"])))
(require '[pod.test-pod :as pod]) (require '[pod.test-pod :as pod])
(def pod-ns-name (ns-name (find-ns 'pod.test-pod))) (def pod-ns-name (ns-name (find-ns 'pod.test-pod)))