diff options
| -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") |