aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-04-12 18:07:17 +0200
committerLudovic Courtès <ludo@gnu.org>2013-04-12 18:07:17 +0200
commitc31d1a7860203cb779b16171fe50ec9948135bc2 (patch)
tree6f15159448dbc67fcce7134732c0af6b0abe7b16
parent9297c90b69ba2d1f504f8c63b92510806615847d (diff)
downloadpatches-c31d1a7860203cb779b16171fe50ec9948135bc2.tar
patches-c31d1a7860203cb779b16171fe50ec9948135bc2.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.scm3
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)