diff options
| author | Runciter | 2025-03-10 00:32:43 +0800 |
|---|---|---|
| committer | Runciter | 2025-03-10 01:17:40 +0800 |
| commit | 9c8bf9b17587acdbd4775f78deeecbffde7d71e4 (patch) | |
| tree | 4c47973397450e0dbf80bfac4d6a9a78a8ed91ef | |
| parent | 304c45900527c299a9c719954ef84ff74ccfb6c3 (diff) | |
| download | whispers-9c8bf9b17587acdbd4775f78deeecbffde7d71e4.tar.gz | |
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)
| -rw-r--r-- | whispers/services/whispers.scm | 13 |
1 files 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") |