From 3b90c4ba59c0dd647b83e0324a6658fc2897e277 Mon Sep 17 00:00:00 2001 From: Michiel Borkent Date: Wed, 20 May 2020 20:23:19 +0200 Subject: [PATCH] return map from load-pod --- src/babashka/pods/jvm.clj | 2 +- src/babashka/pods/sci.clj | 2 +- test-resources/test_program.clj | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) 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)))