me
/
guix
Archived
1
0
Fork 0
Code

packages: ‘sanitize-inputs’ does not add labels when unnecessary. 

Fixes a bug introduced in 402d0a9b9d
whereby labels would be added in cases like:

  (inputs (list `("label" ,whatever)))

This idiom is found for example in the ‘nmon’ package.

* guix/packages.scm (add-input-labels): Call ‘maybe-add-input-labels’
instead of (map add-input-label …).

Change-Id: I3e86d4607f19482a4e461ef8e7a20cde2a41ead7
master
Ludovic Courtès 2024-05-05 12:02:59 +02:00
parent ef8ab6ab66
commit 49232eff56
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
guix/packages.scm
View File

@ -439,8 +439,9 @@ from forcing GEXP-PROMISE."
(else (map add-input-label inputs))))
(define (add-input-labels . inputs)
"Add labels to all of INPUTS."
(map add-input-label inputs))
"Add labels to all of INPUTS if needed (this is the rest-argument version of
'maybe-add-input-labels')."
(maybe-add-input-labels inputs))
(define-syntax sanitize-inputs
;; This is written as a macro rather than as a 'define-inlinable' procedure