cadence
/
breezewiki
3
4
Fork 4
Code Issues Pull Requests 3 Releases Wiki Activity

Case insensitive environment variables

This commit is contained in:
Cadence Ember 2022-09-17 22:55:25 +12:00
parent b57fd99c7d
commit 4d8746e85e
Signed by: cadence
GPG Key ID: BC1C2C61CF521B17
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/config.rkt
View File

@ -58,7 +58,7 @@
[e-ref (λ (name) (bytes->string/latin-1 (environment-variables-ref (current-environment-variables) name)))])
(map (λ (name) (cons (string->symbol (string-downcase (substring (bytes->string/latin-1 name) 3)))
(e-ref name)))
(filter (λ (name) (string-prefix? (bytes->string/latin-1 name) "BW_")) e-names))))
(filter (λ (name) (string-prefix? (string-downcase (bytes->string/latin-1 name)) "bw_")) e-names))))
(when (> (length env-alist) 0)
(printf "note: ~a items loaded from environment variables~n" (length env-alist)))