aboutsummaryrefslogtreecommitdiff
path: root/guix
diff options
context:
space:
mode:
authorArun Isaac2024-01-11 16:45:47 +0000
committerArun Isaac2024-01-11 16:45:47 +0000
commit7fbb3af04da9f4dea98d93b266a164162e6af141 (patch)
tree8520c1b3f64c8ed324f9f7e34db2b723db367c43 /guix
parentcd19e4bfe3695b931a6c64d7d1757be5f798acb4 (diff)
downloadguix-forge-7fbb3af04da9f4dea98d93b266a164162e6af141.tar.gz
guix-forge-7fbb3af04da9f4dea98d93b266a164162e6af141.tar.lz
guix-forge-7fbb3af04da9f4dea98d93b266a164162e6af141.zip
forge: Generalize guix-channel-job-gexp to non-package objects.
* guix/forge/forge.scm (guix-channel-job-gexp): Use lower-object instead of package->derivation.
Diffstat (limited to 'guix')
-rw-r--r--guix/forge/forge.scm12
1 files changed, 5 insertions, 7 deletions
diff --git a/guix/forge/forge.scm b/guix/forge/forge.scm
index c66d084..1871a12 100644
--- a/guix/forge/forge.scm
+++ b/guix/forge/forge.scm
@@ -413,13 +413,11 @@ that were built."
(inferior-eval
'(parameterize ((%daemon-socket-uri #$guix-daemon-uri))
(with-store store
- (map (compose derivation-file-name
- (match-lambda
- ((? package? pkg)
- (parameterize ((%graft? #false))
- (run-with-store store
- (package->derivation pkg))))
- (item (error "Unknown item" item))))
+ (map (lambda (item)
+ (derivation-file-name
+ (parameterize ((%graft? #false))
+ (run-with-store store
+ (lower-object item)))))
#$(if variables
#~(map (match-lambda
((module-name variable-name)