diff options
Diffstat (limited to 'guix/scripts/archive.scm')
| -rw-r--r-- | guix/scripts/archive.scm | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/guix/scripts/archive.scm b/guix/scripts/archive.scm index 90dc844281..0a2e186da6 100644 --- a/guix/scripts/archive.scm +++ b/guix/scripts/archive.scm @@ -288,9 +288,7 @@ 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 - (lambda (port) - (display (canonical-sexp->string (sexp->canonical-sexp acl)) - port)))))) + (cut write-acl acl <>))))) (define (guix-archive . args) (define (parse-options) |