diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2016-03-02 13:25:50 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2016-03-02 14:47:07 +0100 |
| commit | 1cbdf82d3ba5b257e44144788244139ae15689c8 (patch) | |
| tree | 2ce7007a65f5569c056d418b4544845137d2e89d | |
| parent | ed742bc4b4f25e5baff80c1f8529c20b6d98b513 (diff) | |
| download | guix-1cbdf82d3ba5b257e44144788244139ae15689c8.tar guix-1cbdf82d3ba5b257e44144788244139ae15689c8.tar.gz | |
guix archive: Use 'with-store'.
* guix/scripts/archive.scm (guix-archive): Use 'with-store' instead of
an explicit 'open-connection'.
| -rw-r--r-- | guix/scripts/archive.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/guix/scripts/archive.scm b/guix/scripts/archive.scm index 1a941d1a73..16ca96bdf5 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 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2013, 2014, 2015, 2016 Ludovic Courtès <ludo@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -324,7 +324,7 @@ the input port." ((assoc-ref opts 'authorize) (authorize-key)) (else - (let ((store (open-connection))) + (with-store store (cond ((assoc-ref opts 'export) (export-from-store store opts)) ((assoc-ref opts 'import) |