summaryrefslogtreecommitdiff
path: root/guix
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2019-12-29 16:19:56 +0100
committerLudovic Courtès <ludo@gnu.org>2019-12-29 18:24:54 +0100
commit8a705ae4c6107f43c7fbcfad913dd2675f94086a (patch)
treefde7775864a4c4ac8aee5e8830d127793320568f /guix
parent1e30d4e0df75567b869c0c69e8c0a93f712a56a0 (diff)
profiles: Add 'map-manifest-entries'.
* guix/scripts/pack.scm (map-manifest-entries): Move to... * guix/profiles.scm (map-manifest-entries): ... here.
Diffstat (limited to 'guix')
-rw-r--r--guix/profiles.scm6
-rw-r--r--guix/scripts/pack.scm5
2 files changed, 6 insertions, 5 deletions
diff --git a/guix/profiles.scm b/guix/profiles.scm
index 616605151e..5b3b5bd5fe 100644
--- a/guix/profiles.scm
+++ b/guix/profiles.scm
@@ -93,6 +93,7 @@
manifest-pattern-output
concatenate-manifests
+ map-manifest-entries
manifest-remove
manifest-add
manifest-lookup
@@ -520,6 +521,11 @@ procedure is here for backward-compatibility and will eventually vanish."
"Concatenate the manifests listed in LST and return the resulting manifest."
(manifest (append-map manifest-entries lst)))
+(define (map-manifest-entries proc manifest)
+ "Apply PROC to all the entries of MANIFEST and return a new manifest."
+ (make-manifest
+ (map proc (manifest-entries manifest))))
+
(define (entry-predicate pattern)
"Return a procedure that returns #t when passed a manifest entry that
matches NAME/OUTPUT/VERSION. OUTPUT and VERSION may be #f, in which case they
diff --git a/guix/scripts/pack.scm b/guix/scripts/pack.scm
index 9676d28565..536cc1726c 100644
--- a/guix/scripts/pack.scm
+++ b/guix/scripts/pack.scm
@@ -753,11 +753,6 @@ last resort for relocation."
(manifest-entry-output entry)
args))))
-(define (map-manifest-entries proc manifest)
- "Apply PROC to all the entries of MANIFEST and return a new manifest."
- (make-manifest
- (map proc (manifest-entries manifest))))
-
;;;
;;; Command-line options.