[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/02: search-paths: Add $TZDIR.
From: |
guix-commits |
Subject: |
01/02: search-paths: Add $TZDIR. |
Date: |
Tue, 12 Sep 2023 10:16:36 -0400 (EDT) |
apteryx pushed a commit to branch master
in repository guix.
commit f0e05411bdcb36f5adba493555c360799307f641
Author: Maxim Cournoyer <maxim.cournoyer@gmail.com>
AuthorDate: Tue Sep 12 10:03:44 2023 -0400
search-paths: Add $TZDIR.
* guix/search-paths.scm ($TZDIR): New search path.
---
guix/search-paths.scm | 11 +++++++++--
1 file changed, 9 insertions(+), 2 deletions(-)
diff --git a/guix/search-paths.scm b/guix/search-paths.scm
index fcbe7b7953..8dc81861c9 100644
--- a/guix/search-paths.scm
+++ b/guix/search-paths.scm
@@ -37,6 +37,7 @@
$PKG_CONFIG_PATH
$SSL_CERT_DIR
$SSL_CERT_FILE
+ $TZDIR
search-path-specification->sexp
sexp->search-path-specification
@@ -104,16 +105,22 @@
(define $SSL_CERT_DIR
(search-path-specification
(variable "SSL_CERT_DIR")
- (separator #f) ;single entry
+ (separator #f) ;single entry
(files '("etc/ssl/certs"))))
(define $SSL_CERT_FILE
(search-path-specification
(variable "SSL_CERT_FILE")
(file-type 'regular)
- (separator #f) ;single entry
+ (separator #f) ;single entry
(files '("etc/ssl/certs/ca-certificates.crt"))))
+(define $TZDIR
+ (search-path-specification
+ (variable "TZDIR")
+ (files '("share/zoneinfo"))
+ (separator #f))) ;single entry
+
(define (search-path-specification->sexp spec)
"Return an sexp representing SPEC, a <search-path-specification>. The sexp
corresponds to the arguments expected by `set-path-environment-variable'."