guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[shepherd] 03/05: service: 'service-list' returns unique services.


From: Ludovic Courtès
Subject: [shepherd] 03/05: service: 'service-list' returns unique services.
Date: Sun, 24 Jan 2016 21:09:29 +0000

civodul pushed a commit to branch master
in repository shepherd.

commit d5381bde4bb200634235d578431569cc15772371
Author: Alex Kost <address@hidden>
Date:   Sun Jan 24 18:33:09 2016 +0300

    service: 'service-list' returns unique services.
    
    * modules/shepherd/service.scm (service-list): Remove duplicates from
      the final list.
    
    Signed-off-by: Ludovic Courtès <address@hidden>
---
 modules/shepherd/service.scm |   10 ++++++----
 1 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/modules/shepherd/service.scm b/modules/shepherd/service.scm
index 7cf557f..0a13626 100644
--- a/modules/shepherd/service.scm
+++ b/modules/shepherd/service.scm
@@ -827,10 +827,12 @@ Return #f if service is not found."
 
 (define (service-list)
   "Return the list of services currently defined."
-  (hash-fold (lambda (key services result)
-               (append services result))
-             '()
-             %services))
+  (delete-duplicates
+   (hash-fold (lambda (key services result)
+                (append services result))
+              '()
+              %services)
+   eq?))
 
 (define (find-service pred)
   "Return the first service that matches PRED, or #f if none was found."



reply via email to

[Prev in Thread] Current Thread [Next in Thread]