[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
08/15: system: guix: Use config's ACL file location.
From: |
guix-commits |
Subject: |
08/15: system: guix: Use config's ACL file location. |
Date: |
Sun, 30 Apr 2023 17:22:13 -0400 (EDT) |
civodul pushed a commit to branch master
in repository guix.
commit 9f09903aff038533450a134a3c12e0e3e29c4ce6
Author: Josselin Poiret <dev@jpoiret.xyz>
AuthorDate: Mon Apr 24 21:59:03 2023 +0200
system: guix: Use config's ACL file location.
* gnu/services/base.scm (substitute-key-authorization): Use %acl-file
instead of
hardcoded "/etc/guix/acl".
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
gnu/services/base.scm | 17 +++++++++--------
1 file changed, 9 insertions(+), 8 deletions(-)
diff --git a/gnu/services/base.scm b/gnu/services/base.scm
index e8eae72aa2..4adb551796 100644
--- a/gnu/services/base.scm
+++ b/gnu/services/base.scm
@@ -83,6 +83,7 @@
#:use-module (guix gexp)
#:use-module (guix records)
#:use-module (guix modules)
+ #:use-module (guix pki)
#:use-module ((guix self) #:select (make-config.scm))
#:use-module (guix diagnostics)
#:use-module (guix i18n)
@@ -1727,19 +1728,19 @@ archive' public keys, with GUIX."
(with-imported-modules '((guix build utils))
#~(begin
(use-modules (guix build utils))
-
+ (define acl-file #$%acl-file)
;; If the ACL already exists, move it out of the way. Create a backup
;; if it's a regular file: it's likely that the user manually updated
;; it with 'guix archive --authorize'.
- (if (file-exists? "/etc/guix/acl")
- (if (and (symbolic-link? "/etc/guix/acl")
- (store-file-name? (readlink "/etc/guix/acl")))
- (delete-file "/etc/guix/acl")
- (rename-file "/etc/guix/acl" "/etc/guix/acl.bak"))
- (mkdir-p "/etc/guix"))
+ (if (file-exists? acl-file)
+ (if (and (symbolic-link? acl-file)
+ (store-file-name? (readlink acl-file)))
+ (delete-file acl-file)
+ (rename-file acl-file (string-append acl-file ".bak")))
+ (mkdir-p (dirname acl-file)))
;; Installed the declared ACL.
- (symlink #+default-acl "/etc/guix/acl"))))
+ (symlink #+default-acl acl-file))))
(define %default-authorized-guix-keys
;; List of authorized substitute keys.
- branch master updated (a27e0d4533 -> 08675129aa), guix-commits, 2023/04/30
- 05/15: guix: import: crate: Fix incorrect returned values., guix-commits, 2023/04/30
- 01/15: import: pypi: Adjust tests for new build system., guix-commits, 2023/04/30
- 02/15: gnu: Add diffpdf., guix-commits, 2023/04/30
- 07/15: scripts: import: crate: Handle non-existent package., guix-commits, 2023/04/30
- 04/15: gnu: Add chicken-srfi-18., guix-commits, 2023/04/30
- 08/15: system: guix: Use config's ACL file location.,
guix-commits <=
- 03/15: gnu: Add chicken-compile-file., guix-commits, 2023/04/30
- 09/15: installer: Filter out C.UTF-8 from the list of locales., guix-commits, 2023/04/30
- 11/15: gnu: mumi: Add guile-gnutls to inputs., guix-commits, 2023/04/30
- 12/15: gnu: slim: Fix build failure with GCC-11, guix-commits, 2023/04/30
- 14/15: gnu: plover: Fix build., guix-commits, 2023/04/30
- 06/15: gnu: guix: Add guile-semver., guix-commits, 2023/04/30
- 10/15: doc: Add --sysconfdir=/etc to the recommended ./configure., guix-commits, 2023/04/30
- 13/15: gnu: slim: Update homepage., guix-commits, 2023/04/30
- 15/15: build: Undo "guix/scripts/import/cpan.scm" which was removed in commit 3aae8145a7., guix-commits, 2023/04/30