From b4071b44e68ba880f1ebef645da412a4b2d409a8 Mon Sep 17 00:00:00 2001 From: GigiaJ Date: Mon, 24 Nov 2025 09:40:03 -0600 Subject: [PATCH] thunk func --- src/main/core.cljs | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) diff --git a/src/main/core.cljs b/src/main/core.cljs index 723f239..da2351a 100644 --- a/src/main/core.cljs +++ b/src/main/core.cljs @@ -27,17 +27,16 @@ "hetzner-k3s" "base" "/home/jaggar/dotfiles/iac" - (execute - base-resources-definition - (fn [output] (let [_ (js/console.log output)] - #js {:kubeconfig (p-> output .-cluster "generic:execute" .-kubeconfig)}))))) + #(execute + base-resources-definition + (fn [output] #js {:kubeconfig (p-> output .-cluster "generic:execute" .-kubeconfig)})))) (def init-stack (define-stack "hetzner-k3s" "init" "/home/jaggar/dotfiles/iac" - (execute + #(execute initialize-resources-definition (fn [output] #js {:vaultAddress (p-> output .-openbao "generic:execute" .-address) :vaultToken (p-> output .-openbao "generic:execute" "root-token")})))) @@ -47,7 +46,7 @@ "hetzner-k3s" "shared" "/home/jaggar/dotfiles/iac" - (execute + #(execute shared-resources-definition (fn [output] (let [secrets (p-> output .-harbor "vault:prepare" "stringData")] #js {:url (p-> secrets .-host (fn [x] (str "https://" x))) @@ -59,14 +58,14 @@ "hetzner-k3s" "prepare" "/home/jaggar/dotfiles/iac" - (execute preparation-resources-definition (fn [output] {})))) + #(execute preparation-resources-definition (fn [output] {})))) (def deployment-stack (define-stack "hetzner-k3s" "deployment" "/home/jaggar/dotfiles/iac" - (execute deployment-resources-definition (fn [output] {})))) + #(execute deployment-resources-definition (fn [output] {})))) (defn deploy-stack