services: admin: Allow non-string values for setenv assoc-list entries
parent
e853d05dc1
commit
1b3c063c32
|
@ -41,7 +41,7 @@
|
||||||
(map (match-lambda
|
(map (match-lambda
|
||||||
((var . #t) var)
|
((var . #t) var)
|
||||||
((var . #f) (string-append "-" var))
|
((var . #f) (string-append "-" var))
|
||||||
((var . value) (string-append var "=" value)))
|
((var . value) (format #f "~a=~a" var value)))
|
||||||
val))
|
val))
|
||||||
(define-maybe list-of-strings)
|
(define-maybe list-of-strings)
|
||||||
(define-maybe assoc-list)
|
(define-maybe assoc-list)
|
||||||
|
|
Loading…
Reference in New Issue