diff options
Diffstat (limited to 'guix')
| -rw-r--r-- | guix/pki.scm | 5 | ||||
| -rw-r--r-- | guix/scripts/archive.scm | 5 | ||||
| -rw-r--r-- | guix/ssh.scm | 5 |
3 files changed, 9 insertions, 6 deletions
diff --git a/guix/pki.scm b/guix/pki.scm index 93932128cd..91c1be531a 100644 --- a/guix/pki.scm +++ b/guix/pki.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2013, 2014, 2016, 2022 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2013-2014, 2016, 2022, 2025 Ludovic Courtès <ludo@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -87,7 +87,8 @@ element in KEYS must be a canonical sexp with type 'public-key'." (with-atomic-file-output %acl-file (lambda (port) (write-acl (public-keys->acl (list public-key)) - port))))))) + port))) + (chmod %acl-file #o644))))) (define (write-acl acl port) "Write ACL to PORT in canonical-sexp format." diff --git a/guix/scripts/archive.scm b/guix/scripts/archive.scm index 2b5a55a23f..cf2c045c2e 100644 --- a/guix/scripts/archive.scm +++ b/guix/scripts/archive.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2019, 2020, 2021 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2013-2017, 2019-2021, 2025 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; ;;; This file is part of GNU Guix. @@ -324,7 +324,8 @@ the input port." (let ((acl (public-keys->acl (cons key (acl->public-keys acl))))) (mkdir-p (dirname %acl-file)) (with-atomic-file-output %acl-file - (cut write-acl acl <>))))) + (cut write-acl acl <>)) + (chmod %acl-file #o644)))) (define (list-contents port) "Read a nar from PORT and print the list of files it contains to the current diff --git a/guix/ssh.scm b/guix/ssh.scm index 9e504c054c..20a35b2712 100644 --- a/guix/ssh.scm +++ b/guix/ssh.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2016-2021, 2023-2024 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2016-2021, 2023-2025 Ludovic Courtès <ludo@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -458,7 +458,8 @@ to the system ACL file if it has not yet been authorized." (let ((acl (public-keys->acl (cons key (acl->public-keys acl))))) (mkdir-p (dirname %acl-file)) (with-atomic-file-output %acl-file - (cut write-acl acl <>))))) + (cut write-acl acl <>)) + (chmod %acl-file #o644)))) session become-command)) |