Fix group-to-alist

To not just append elements to the alist.
2019-12-15 15:51:46 +00:00 · 2019-12-15 15:51:46 +00:00 · bdcba528fc
commit bdcba528fc
parent a41249d8fe
1 changed files with 1 additions and 1 deletions
--- 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))))))