From d64afb951b657f373a8cb26e0f3b5c048094c87d Mon Sep 17 00:00:00 2001
From: Marek Paśnikowski <marekpasnikowski@protonmail.com>
Date: Mon, 31 Oct 2022 11:57:38 +0100
Subject: System configuration: break out list-to-package-output

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

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