meissa/dda-build
7
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

access to env

Browse source
This commit is contained in:
Michael Jerger 2024-10-04 17:23:02 +02:00
parent 609358b057
commit e9011773e7
1 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/dda/build/devops.clj
View file

@ -22,6 +22,16 @@
:debug false :debug false
:dry-run false}) :dry-run false})
(defn-spec env-or-file string?
[name string?]
(let [from-env (System/getenv name)
name-from-file (System/getenv (str name "_FILE"))]
(cond
(some? from-env) from-env
(some? name-from-file) (slurp name-from-file)
:else (throw (RuntimeException.
(str "Environment: [" name "," name-from-file "] was missing."))))))
(defn-spec clean-build-dir! nil? (defn-spec clean-build-dir! nil?
[devops ::devops] [devops ::devops]
(let [final (merge default devops)] (let [final (merge default devops)]