From da86d038b547c59cece57cbb9e10cd8ae212b49b Mon Sep 17 00:00:00 2001
From: Marek Paśnikowski <marek@marekpasnikowski.pl>
Date: Sun, 14 Jan 2024 11:17:10 +0100
Subject: System configuration: break out list-to-package-output

---
 system-configuration.scm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'system-configuration.scm')

diff --git a/system-configuration.scm b/system-configuration.scm
index e13f2c1..5872517 100644
--- a/system-configuration.scm
+++ b/system-configuration.scm
@@ -48,9 +48,12 @@
   (cons* marek
 	 %base-user-accounts))
 
+(define list-to-package-output
+  (compose list
+	   specification->package+output))
+
 (define packages
-  (append (map (compose list
-			specification->package+output)
+  (append (map list-to-package-output
 	       '("guile-spec"
 		 "netcat-openbsd"
 		 "nss-certs"
-- 
cgit v1.2.3