From dd2171ce0d074cb6003afdaec353df572ed784a8 Mon Sep 17 00:00:00 2001
From: "P.C. Shyamshankar" <shyam@sykloid.org>
Date: Fri, 22 Feb 2019 22:38:47 -0500
Subject: [PATCH] pack: Construct inferior package names correctly.
* guix/scripts/pack.scm: 'wrapped-package' now correctly constructs full
names of inferior packages, allowing relocatable packs.
---
guix/scripts/pack.scm | 10 +++++++++-
1 file changed, 9 insertions(+), 1 deletion(-)
@@ -28,6 +28,7 @@
#:use-module (guix store)
#:use-module (guix status)
#:use-module (guix grafts)
+ #:use-module (guix inferior)
#:use-module (guix monads)
#:use-module (guix modules)
#:use-module (guix packages)
@@ -570,7 +571,14 @@ please email '~a'~%")
(find-files #$(file-append package "/sbin"))
(find-files #$(file-append package "/libexec")))))))
- (computed-file (string-append (package-full-name package "-") "R")
+ (computed-file (string-append
+ (cond ((package? package)
+ (package-full-name package "-"))
+ ((inferior-package? package)
+ (string-append (inferior-package-name package)
+ "-"
+ (inferior-package-version package))))
+ "R")
build))
(define (map-manifest-entries proc manifest)
--
2.20.1