summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLiliana Marie Prikler <liliana.prikler@gmail.com>2022-09-10 09:41:39 +0200
committerGuix Patches Tester <>2022-09-10 08:46:30 +0100
commit8acf25397f7d6322a58a41dcd05fd8e98b7d2e3a (patch)
treefd241762e515157a74f770d2b14f8556d949ab9c
parent1d690f7d1d42acd6e7b4dc92de462e6ac739fd77 (diff)
downloadguix-patches-8acf25397f7d6322a58a41dcd05fd8e98b7d2e3a.tar
guix-patches-8acf25397f7d6322a58a41dcd05fd8e98b7d2e3a.tar.gz
guix: Filter unspecified inputs when sanitizing.
* guix/packages.scm (sanitize-inputs): Filter inputs which are unspecified? rather than adding a label.
-rw-r--r--guix/packages.scm7
1 files changed, 5 insertions, 2 deletions
diff --git a/guix/packages.scm b/guix/packages.scm
index 94e464cd01..0975002c13 100644
--- a/guix/packages.scm
+++ b/guix/packages.scm
@@ -429,12 +429,15 @@ from forcing GEXP-PROMISE."
(define-inlinable (sanitize-inputs inputs)
"Sanitize INPUTS by turning it into a list of name/package tuples if it's
-not already the case."
+not already the case and removing unspecified inputs."
(cond ((null? inputs) inputs)
((and (pair? (car inputs))
(string? (caar inputs)))
inputs)
- (else (map add-input-label inputs))))
+ (else (filter-map (lambda (input)
+ (if (unspecified? input) #f
+ (add-input-label input)))
+ inputs))))
(define-syntax current-location-vector
(lambda (s)