diff --git a/src/babashka/pods/jvm.clj b/src/babashka/pods/jvm.clj index d9bb443..3f9483d 100644 --- a/src/babashka/pods/jvm.clj +++ b/src/babashka/pods/jvm.clj @@ -17,7 +17,7 @@ (string? v) (load-string v))))) (future (impl/processor pod)) - (:pod-id pod)))) + {:pod/id (:pod-id pod)}))) (defn unload-pod ([pod-id] (unload-pod pod-id {})) diff --git a/src/babashka/pods/sci.clj b/src/babashka/pods/sci.clj index 3f7dced..7545a19 100644 --- a/src/babashka/pods/sci.clj +++ b/src/babashka/pods/sci.clj @@ -24,7 +24,7 @@ (string? var-value) (sci/eval-string* ctx var-value))))) (sci/future (impl/processor pod)) - (:pod-id pod)))) + {:pod/id (:pod-id pod)}))) {:sci.impl/op :needs-ctx})) (defn unload-pod diff --git a/test-resources/test_program.clj b/test-resources/test_program.clj index 3468501..1c9c8c9 100644 --- a/test-resources/test_program.clj +++ b/test-resources/test_program.clj @@ -1,5 +1,5 @@ (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]) (def pod-ns-name (ns-name (find-ns 'pod.test-pod)))