jaggar/iac-cljs-configs
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Prevent initial execution from wiping app deployments unnecessarily

Browse Source
This commit is contained in:
GigiaJ
2025-09-30 02:27:31 -05:00
parent 242d09b3c0
commit 770736f79e
1 changed files with 12 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
iac/src/main/core.cljs
View File

@@ -28,9 +28,18 @@
_ (.setConfig core-stack "hetzner-k3s:sshPersonalKeyName" #js {:value (-> cfg :sshPersonalKeyName) :secret false}) _ (.setConfig core-stack "hetzner-k3s:sshPersonalKeyName" #js {:value (-> cfg :sshPersonalKeyName) :secret false})
_ (.setConfig core-stack "hcloud:token" #js {:value (-> cfg :hcloudToken) :secret true}) _ (.setConfig core-stack "hcloud:token" #js {:value (-> cfg :hcloudToken) :secret true})
_ (.setConfig core-stack "hetzner-k3s:privateKeySsh" #js {:value (-> cfg :privateKeySsh) :secret true}) _ (.setConfig core-stack "hetzner-k3s:privateKeySsh" #js {:value (-> cfg :privateKeySsh) :secret true})
core-result (.up core-stack #js {:onOutput println}) ;;core-result (.up core-stack #js {:onOutput println})
;; Checks for changes on the core and prevents deleting the app-stack needlessly.
;; Important for the Openbao vault as it is deployed here and configured on the app-stack generally
core-preview-result (.preview core-stack #js {:onOutput println})
core-change-summary (js->clj (.-changeSummary core-preview-result) :keywordize-keys true)
core-result (when (or (zero? (:delete core-change-summary 0))
(pos? (:update core-change-summary 0))
(pos? (:create core-change-summary 0)))
(.up core-stack #js {:onOutput println}))
core-outputs (.outputs core-stack) core-outputs (.outputs core-stack)
vault-address (-> core-outputs (aget "vaultAddress") (.-value)) vault-address (-> core-outputs (aget "vaultAddress") (.-value))
vault-token (-> core-outputs (aget "vaultToken") (.-value)) vault-token (-> core-outputs (aget "vaultToken") (.-value))
kubeconfig (-> core-outputs (aget "kubeconfig") (.-value)) kubeconfig (-> core-outputs (aget "kubeconfig") (.-value))