tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 21:20:33 +02:00
Code Activity

etc: ungraft: Use ‘package-mapping’ directly.

Browse Source 
* etc/manifests/ungraft.scm (ungraft): New procedure.
<top-level>: Use it.  Remove ‘ungraft-all’.

Change-Id: I6f1badf06dad9116d4242c7d1fff5ca53e6522f8
This commit is contained in:
Ludovic Courtès
2024-12-15 00:33:04 +01:00
parent 0107b771bd
commit 777fde8299
1 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
etc/manifests/ungraft.scm
View File

@@ -35,15 +35,16 @@
(length result) (map package-full-name result))
result))
(define ungraft
(package-mapping (lambda (p)
(or (package-replacement p) p))
#:deep? #t))
(manifest
(with-store store
(let* ((grafted (grafted-packages))
(ungraft-all (package-input-rewriting
(map (lambda (package)
`(,package . ,(package-replacement package)))
grafted))))
(let ((grafted (grafted-packages)))
(map (lambda (package)
(manifest-entry
(inherit (package->manifest-entry (ungraft-all package)))
(inherit (package->manifest-entry (ungraft package)))
(name (string-append (package-name package) "-ungrafted"))))
(dependents store grafted)))))