From mboxrd@z Thu Jan 1 00:00:00 1970 From: Alex Kost Subject: [PATCH 3/5] service: 'service-list' returns unique services. Date: Sun, 24 Jan 2016 18:33:09 +0300 Message-ID: <1453649591-3478-4-git-send-email-alezost@gmail.com> References: <1453649591-3478-1-git-send-email-alezost@gmail.com> Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:56032) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aNMfW-0001Az-OP for guix-devel@gnu.org; Sun, 24 Jan 2016 10:33:35 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1aNMfV-00050m-Us for guix-devel@gnu.org; Sun, 24 Jan 2016 10:33:34 -0500 Received: from mail-lf0-x242.google.com ([2a00:1450:4010:c07::242]:34320) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aNMfV-00050h-MY for guix-devel@gnu.org; Sun, 24 Jan 2016 10:33:33 -0500 Received: by mail-lf0-x242.google.com with SMTP id n70so6582116lfn.1 for ; Sun, 24 Jan 2016 07:33:33 -0800 (PST) Received: from localhost.localdomain ([217.107.192.146]) by smtp.gmail.com with ESMTPSA id e130sm2135200lfe.9.2016.01.24.07.33.32 for (version=TLS1_2 cipher=ECDHE-RSA-AES128-SHA bits=128/128); Sun, 24 Jan 2016 07:33:32 -0800 (PST) In-Reply-To: <1453649591-3478-1-git-send-email-alezost@gmail.com> List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org To: guix-devel@gnu.org * modules/shepherd/service.scm (service-list): Remove duplicates from the final list. --- modules/shepherd/service.scm | 10 ++++++---- 1 file 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." -- 2.6.3