From 2cf94bd140327b1cda5dc9d7a8d3b8c69ec1dfec Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Sun, 15 Dec 2019 15:51:46 +0000
Subject: Fix group-to-alist

To not just append elements to the alist.
---
 guix-data-service/model/utils.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'guix-data-service')

diff --git a/guix-data-service/model/utils.scm b/guix-data-service/model/utils.scm
index af60e45..028d318 100644
--- a/guix-data-service/model/utils.scm
+++ b/guix-data-service/model/utils.scm
@@ -89,7 +89,7 @@
              (match (assoc key result)
                ((_ . existing-values)
                 `((,key . ,(cons value existing-values))
-                  ,@result))
+                  ,@(alist-delete key result)))
                (#f
                 `((,key . (,value))
                   ,@result))))))
-- 
cgit v1.2.3