mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-18 13:36:36 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

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
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
etc/manifests/ungraft.scm
View file

@ -35,15 +35,16 @@ (define (grafted-packages)
(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)))))