summaryrefslogtreecommitdiff
path: root/guix/pki.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-01-05 23:40:06 +0100
committerLudovic Courtès <ludo@gnu.org>2014-01-05 23:40:06 +0100
commit590e4154b683b5efc53269b1c493f48e3d862f48 (patch)
tree23ca29283d5e5afcc4dd22a4667b1a61fdec69b5 /guix/pki.scm
parent425b0bfc2ed60163d1b3dad5c6361dea511ba596 (diff)
archive: Make sure $sysconfdir/guix exists.
* guix/pki.scm (ensure-acl): Make sure the directory of %ACL-FILE exists. * guix/scripts/archive.scm (generate-key-pair): Likewise for %PUBLIC-KEY-FILE.
Diffstat (limited to 'guix/pki.scm')
-rw-r--r--guix/pki.scm4
1 files changed, 3 insertions, 1 deletions
diff --git a/guix/pki.scm b/guix/pki.scm
index dc8139fbc9..5e4dbadd35 100644
--- a/guix/pki.scm
+++ b/guix/pki.scm
@@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2013 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2013, 2014 Ludovic Courtès <ludo@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -20,6 +20,7 @@
#:use-module (guix config)
#:use-module (guix pk-crypto)
#:use-module ((guix utils) #:select (with-atomic-file-output))
+ #:use-module ((guix build utils) #:select (mkdir-p))
#:use-module (ice-9 match)
#:use-module (rnrs io ports)
#:export (%public-key-file
@@ -82,6 +83,7 @@ element in KEYS must be a canonical sexp with type 'public-key'."
(let ((public-key (call-with-input-file %public-key-file
(compose string->canonical-sexp
get-string-all))))
+ (mkdir-p (dirname %acl-file))
(with-atomic-file-output %acl-file
(lambda (port)
(display (canonical-sexp->string