tedkulp/breezewiki
1
0
Fork 0
mirror of https://gitdab.com/cadence/breezewiki.git synced 2026-03-05 13:40:27 -05:00
Code Issues Packages Projects Releases Wiki Activity

Case insensitive environment variables

Browse Source
This commit is contained in:
Cadence Ember
2022-09-17 22:55:25 +12:00
parent b57fd99c7d
commit 4d8746e85e
1 changed files with 1 additions and 1 deletions
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)))