diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2018-07-13 14:33:11 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2018-07-13 17:28:39 +0200 |
| commit | bc6e291ef0b3c71c07e50d88d7764e5dd334e8b1 (patch) | |
| tree | f6b08da3fd857738de0b51f6746d9c864da25953 /guix | |
| parent | 0bc2d3e42b8800e875f24973f999739297f1f502 (diff) | |
| download | gnu-guix-bc6e291ef0b3c71c07e50d88d7764e5dd334e8b1.tar gnu-guix-bc6e291ef0b3c71c07e50d88d7764e5dd334e8b1.tar.gz | |
guix package: Use relative symlinks to generations.
Reported by Roel Janssen <roel@gnu.org>
at <https://lists.gnu.org/archive/html/guix-devel/2018-07/msg00036.html>.
* guix/profiles.scm (switch-to-generation): Use (basename generation) as
the symlink target.
* guix/scripts/package.scm (build-and-use-profile): Likewise,
use (basename name) as the symlink target.
* tests/guix-package.sh: Adjust --roll-back test accordingly. Add
explicitly test with '-p foo/prof'.
Diffstat (limited to 'guix')
| -rw-r--r-- | guix/profiles.scm | 2 | ||||
| -rw-r--r-- | guix/scripts/package.scm | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/guix/profiles.scm b/guix/profiles.scm index d2a794b187..f34f4fcff6 100644 --- a/guix/profiles.scm +++ b/guix/profiles.scm @@ -1521,7 +1521,7 @@ the generation that was current before switching." (profile profile) (generation number))))) (else - (switch-symlinks profile generation) + (switch-symlinks profile (basename generation)) current)))) (define (switch-to-previous-generation profile) diff --git a/guix/scripts/package.scm b/guix/scripts/package.scm index 29829f52c8..b38a55d01c 100644 --- a/guix/scripts/package.scm +++ b/guix/scripts/package.scm @@ -190,7 +190,7 @@ do not treat collisions in MANIFEST as an error." (let* ((entries (manifest-entries manifest)) (count (length entries))) (switch-symlinks name prof) - (switch-symlinks profile name) + (switch-symlinks profile (basename name)) (unless (string=? profile %current-profile) (register-gc-root store name)) (format #t (N_ "~a package in profile~%" |