diff options
author | Christopher Baines <mail@cbaines.net> | 2019-12-15 15:51:46 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2019-12-15 15:51:46 +0000 |
commit | 2cf94bd140327b1cda5dc9d7a8d3b8c69ec1dfec (patch) | |
tree | 58c9ba850f81978ddeb990c5930ebac25e1dbecc | |
parent | f1454d0b99c070a0540d7d3b2bd02d4ca68dfe7a (diff) | |
download | data-service-2cf94bd140327b1cda5dc9d7a8d3b8c69ec1dfec.tar data-service-2cf94bd140327b1cda5dc9d7a8d3b8c69ec1dfec.tar.gz |
Fix group-to-alist
To not just append elements to the alist.
-rw-r--r-- | guix-data-service/model/utils.scm | 2 |
1 files changed, 1 insertions, 1 deletions
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)))))) |