From a651926f552f8cde5231a789f663b2ac38827eec Mon Sep 17 00:00:00 2001 From: Sergey Trofimov Date: Thu, 8 Jan 2026 11:45:46 +0100 Subject: services: configuration: Generalize 'list-of-packages?' MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * gnu/services/configuration.scm (list-of-packages?): Allow as well tuples of a package and its output. * gnu/home/services/sway.scm (list-of-packages): Remove duplicate. Change-Id: I42622a29ac808c76928e9056dee9330d5e1b3f39 Signed-off-by: Ludovic Courtès Merges: #5470 --- gnu/services/configuration.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'gnu/services') diff --git a/gnu/services/configuration.scm b/gnu/services/configuration.scm index 886847b9bb7..d42f04f1161 100644 --- a/gnu/services/configuration.scm +++ b/gnu/services/configuration.scm @@ -535,7 +535,10 @@ the list result in @code{#t} when applying PRED? on them." #f))) (define list-of-packages? - (list-of package?)) + (list-of (match-lambda + ((? package? pkg) #t) + (((? package? pkg) output) #t) + (_ #f)))) (define list-of-strings? (list-of string?)) -- cgit v1.3