22 lines
740 B
Clojure
22 lines
740 B
Clojure
(ns babashka.pods
|
|
(:require [babashka.pods.jvm :as jvm]))
|
|
|
|
(defn load-pod
|
|
([pod-spec] (load-pod pod-spec nil))
|
|
([pod-spec version opts]
|
|
(load-pod pod-spec (assoc opts :version version)))
|
|
([pod-spec opts] (jvm/load-pod pod-spec opts)))
|
|
|
|
(defn unload-pod
|
|
([pod-id-or-pod] (unload-pod pod-id-or-pod {}))
|
|
([pod-id-or-pod opts] (jvm/unload-pod pod-id-or-pod opts)))
|
|
|
|
(defn invoke
|
|
([pod-id-or-pod sym args] (invoke pod-id-or-pod sym args {}))
|
|
([pod-id-or-pod sym args opts] (jvm/invoke pod-id-or-pod sym args opts)))
|
|
|
|
(defn add-transit-read-handler [pod-id tag fn]
|
|
(jvm/add-transit-read-handler pod-id tag fn))
|
|
|
|
(defn add-transit-write-handler [pod-id tag fn classes]
|
|
(jvm/add-transit-write-handler pod-id tag fn classes))
|