From ded1012f3c9f5d5e60481274c5b3280acc277b34 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Fri, 4 Apr 2014 00:23:17 +0200 Subject: pki: Introduce 'write-acl', and fix wrong conversion in 'ensure-acl'. * guix/pki.scm (write-acl): New procedure. (ensure-acl): Use it. Fixes a regression introduced in 39831f1, whereby 'ensure-acl' would yield a wrong-type-arg error. * guix/scripts/archive.scm (authorize-key): Use 'write-acl'. --- guix/scripts/archive.scm | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'guix/scripts') 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) -- cgit v1.2.3