Fix command functions

This commit is contained in:
bom 2024-10-11 15:18:55 +02:00
parent b8eb32283f
commit 91ad092b1f
2 changed files with 7 additions and 7 deletions

View file

@ -34,15 +34,15 @@
(defn-spec c4k-uberjar-command seq?
[config ::config]
(let [{:keys [name]} config
executable-name (str "c4k-" name "-standalone.jar")]
["bash" "-c" (str executable-name " " (config-path config) " " (auth-path config) " > " (output-path config))]))
(let [{:keys [module]} config
executable-name (str "c4k-" module "-standalone.jar")]
[["bash" "-c" (str executable-name " " (config-path config) " " (auth-path config) " > " (output-path config))]]))
(defn-spec c4k-graalvm-command seq?
[config ::config]
(let [{:keys [name]} config
executable-name (str "c4k-" name)]
["bash" "-c" (str executable-name " " (config-path config) " " (auth-path config) " > " (output-path config))]))
(let [{:keys [module]} config
executable-name (str "c4k-" module)]
[["bash" "-c" (str executable-name " " (config-path config) " " (auth-path config) " > " (output-path config))]]))
(defn-spec create-c4k-config map?
[config ::config

View file

@ -38,7 +38,7 @@
tf-out ::td/tf-out]
(let [{:keys [k3s-output-filename k3s-provision-user]} config
fqdn (get-in tf-out [:out :value :fqdn])]
["provs-server.jar" "k3s" (str k3s-provision-user "@" fqdn) "-c" (output-path config) "-a" (c4k-d/output-path config)]))
[["provs-server.jar" "k3s" (str k3s-provision-user "@" fqdn) "-c" (output-path config) "-a" (c4k-d/output-path config)]]))
(defn-spec create-k3s-config map?
[config ::config