From 9c8bf9b17587acdbd4775f78deeecbffde7d71e4 Mon Sep 17 00:00:00 2001
From: Runciter
Date: Mon, 10 Mar 2025 00:32:43 +0800
Subject: Fix deprecation warning with start-in-the-background procedure.

M  whispers/services/whispers.scm
   Apply start-in-the-background to one list of auto-started lieutenants
   (applying the procedure to a rest list is deprecated)
---
 whispers/services/whispers.scm | 13 +++++--------
 1 file changed, 5 insertions(+), 8 deletions(-)

diff --git a/whispers/services/whispers.scm b/whispers/services/whispers.scm
index bd2d7f5..53d0925 100644
--- a/whispers/services/whispers.scm
+++ b/whispers/services/whispers.scm
@@ -187,14 +187,11 @@ and PARENT-PATH, configurable by CONFIG, a record of the
     (define shepherd-config
       #~(begin (unless (null? '#$files)
                  (apply register-services (map load '#$files)))
-               (map apply
-                    (map (lambda whatever start-in-the-background)
-                         '#$(map shepherd-service-provision
-                                 (filter shepherd-service-auto-start?
-                                         lieutenants)))
-                    '#$(map list (map shepherd-service-provision
-                                      (filter shepherd-service-auto-start?
-                                              lieutenants))))))
+               (start-in-the-background
+                '#$(map car
+                        (map shepherd-service-provision
+                             (filter shepherd-service-auto-start?
+                                     lieutenants))))))
     (scheme-file (string-append
                   (symbol->string (whispers-configuration-name config))
                   ".conf")
-- 
cgit v1.2.3