guix archive: Use 'with-store'.
* guix/scripts/archive.scm (guix-archive): Use 'with-store' instead of an explicit 'open-connection'.
This commit is contained in:
parent
ed742bc4b4
commit
1cbdf82d3b
@ -1,5 +1,5 @@
|
|||||||
;;; GNU Guix --- Functional package management for GNU
|
;;; GNU Guix --- Functional package management for GNU
|
||||||
;;; Copyright © 2013, 2014, 2015 Ludovic Courtès <ludo@gnu.org>
|
;;; Copyright © 2013, 2014, 2015, 2016 Ludovic Courtès <ludo@gnu.org>
|
||||||
;;;
|
;;;
|
||||||
;;; This file is part of GNU Guix.
|
;;; This file is part of GNU Guix.
|
||||||
;;;
|
;;;
|
||||||
@ -324,7 +324,7 @@ the input port."
|
|||||||
((assoc-ref opts 'authorize)
|
((assoc-ref opts 'authorize)
|
||||||
(authorize-key))
|
(authorize-key))
|
||||||
(else
|
(else
|
||||||
(let ((store (open-connection)))
|
(with-store store
|
||||||
(cond ((assoc-ref opts 'export)
|
(cond ((assoc-ref opts 'export)
|
||||||
(export-from-store store opts))
|
(export-from-store store opts))
|
||||||
((assoc-ref opts 'import)
|
((assoc-ref opts 'import)
|
||||||
|
Loading…
Reference in New Issue
Block a user