diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-04-12 18:07:17 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-04-12 21:58:47 +0200 |
| commit | d5d6db8918fb8cd66132f5ad5d4c03d6ed2db815 (patch) | |
| tree | 36de100d86ecae90a06f3937a67e994d2c98a534 | |
| parent | 0d2fe78f8598cdff97d62483ad7580386235671d (diff) | |
| download | gnu-guix-d5d6db8918fb8cd66132f5ad5d4c03d6ed2db815.tar gnu-guix-d5d6db8918fb8cd66132f5ad5d4c03d6ed2db815.tar.gz | |
package: Being at the empty profile is not an error.
* guix/scripts/package.scm (roll-back): Use `format', not `leave' when
indicating "already at the empty profile". Fixes a regression
introduced in a2011be5dfaf2b94a1d0e3dfbcf4b512389b4711. Reported by
Nikita Karetnikov <nikita@karetnikov.org>.
| -rw-r--r-- | guix/scripts/package.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/guix/scripts/package.scm b/guix/scripts/package.scm index ba75cd778c..ac99d16497 100644 --- a/guix/scripts/package.scm +++ b/guix/scripts/package.scm @@ -211,7 +211,8 @@ all of PACKAGES, a list of name/version/output/path/deps tuples." (leave (_ "error: profile `~a' does not exist~%") profile)) ((zero? number) ; empty profile - (leave (_ "nothing to do: already at the empty profile~%"))) + (format (current-error-port) + (_ "nothing to do: already at the empty profile~%"))) ((or (zero? previous-number) ; going to emptiness (not (file-exists? previous-profile))) (let*-values (((drv-path drv) |