amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00: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
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)) (length result) (map package-full-name result))
result)) result))
(define ungraft
(package-mapping (lambda (p)
(or (package-replacement p) p))
#:deep? #t))
(manifest (manifest
(with-store store (with-store store
(let* ((grafted (grafted-packages)) (let ((grafted (grafted-packages)))
(ungraft-all (package-input-rewriting
(map (lambda (package)
`(,package . ,(package-replacement package)))
grafted))))
(map (lambda (package) (map (lambda (package)
(manifest-entry (manifest-entry
(inherit (package->manifest-entry (ungraft-all package))) (inherit (package->manifest-entry (ungraft package)))
(name (string-append (package-name package) "-ungrafted")))) (name (string-append (package-name package) "-ungrafted"))))
(dependents store grafted))))) (dependents store grafted)))))