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

Far cleaner output extraction. Reads way more smoothly.

Browse Source
This commit is contained in:
GigiaJ
2025-11-16 13:09:43 -06:00
parent 7c1ecad83f
commit 07af736815
1 changed files with 4 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
iac/src/main/base.cljs
View File

@@ -47,15 +47,10 @@
(base/mod-quick-deploy (base/mod-quick-deploy
shared-service-registry shared-service-registry
(fn [init] (fn [init]
(let [app-outputs (get init :setup)] (let [secrets (p-> init .-harbor "vault:prepare" "stringData")]
{} {:url (p-> secrets .-host #(str "https://" %))
#_{:url (.apply app-outputs :username (p-> secrets .-username)
(fn [%] :password (p-> secrets .-password)}))))
(let [host-output (-> % .-harbor (aget "vault-secrets") .-secrets .-host)]
(.apply host-output #(str "https://" %)))))
:username (.apply app-outputs #(-> % .-harbor (aget "vault-secrets") .-secrets .-username))
:password (.apply app-outputs #(-> % .-harbor (aget "vault-secrets") .-secrets .-password))}))))