diff options
| author | Arun Isaac | 2024-01-11 16:45:47 +0000 |
|---|---|---|
| committer | Arun Isaac | 2024-01-11 16:45:47 +0000 |
| commit | 7fbb3af04da9f4dea98d93b266a164162e6af141 (patch) | |
| tree | 8520c1b3f64c8ed324f9f7e34db2b723db367c43 | |
| parent | cd19e4bfe3695b931a6c64d7d1757be5f798acb4 (diff) | |
| download | guix-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.
| -rw-r--r-- | guix/forge/forge.scm | 12 |
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) |