summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLiliana Marie Prikler <liliana.prikler@gmail.com>2022-09-10 09:41:39 +0200
committerGuix Patches Tester <>2022-11-18 12:53:15 +0100
commit59fabd441480d1543c87bd7cf63bc7455fdb0b9c (patch)
treed6c9b2dc815b12df0dd43ab5570d2b84785b25b8
parent983906ab72307a5b848a54233b30d9744356de07 (diff)
downloadguix-patches-59fabd441480d1543c87bd7cf63bc7455fdb0b9c.tar
guix-patches-59fabd441480d1543c87bd7cf63bc7455fdb0b9c.tar.gz
guix: Filter unspecified inputs when sanitizing.issue-57704
* 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 704b4ee710..c5be1f2a47 100644
--- a/guix/packages.scm
+++ b/guix/packages.scm
@@ -434,12 +434,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)