Far cleaner output extraction. Reads way more smoothly.

This commit is contained in:
2025-11-16 13:09:43 -06:00
parent 7c1ecad83f
commit 07af736815

View File

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