From 7fbb3af04da9f4dea98d93b266a164162e6af141 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 11 Jan 2024 16:45:47 +0000
Subject: 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.
---
 guix/forge/forge.scm | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

(limited to 'guix/forge')

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)
-- 
cgit v1.2.3