From 67668155c5b3c4c37717404aa73f7224fced1d81 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Tue, 22 Jan 2013 22:35:16 +0100 Subject: guix-package: Fix `--roll-back' when `--profile' is not passed. * guix-package.in (roll-back): Fix file name of PREVIOUS-PROFILE, which could end up containing the dirname twice. Reported by Nikita and Andreas. * tests/guix-package.sh: Add test. --- guix-package.in | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'guix-package.in') diff --git a/guix-package.in b/guix-package.in index 58d6c49501..85ac358555 100644 --- a/guix-package.in +++ b/guix-package.in @@ -208,9 +208,8 @@ all of PACKAGES, a list of name/version/output/path tuples." ;; XXX: Get the previous generation number from the manifest? (let* ((number (profile-number profile)) (previous-number (previous-profile-number profile number)) - (previous-profile (format #f "~a/~a-~a-link" - (dirname profile) profile - previous-number)) + (previous-profile (format #f "~a-~a-link" + profile previous-number)) (manifest (string-append previous-profile "/manifest"))) (define (switch-link) -- cgit v1.2.3