01/02: Remove redundant match-lambda in select-package-output-availability-for-revision

[Christopher Baines]

cbaines pushed a commit to branch master
in repository data-service.

commit c50f6aeb347087ed4b45454e4a95afc4ec39959c
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Tue May 9 13:43:32 2023 +0100

    Remove redundant match-lambda in 
select-package-output-availability-for-revision
---
 guix-data-service/model/nar.scm | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/guix-data-service/model/nar.scm b/guix-data-service/model/nar.scm
index 662a5ad..61b441a 100644
--- a/guix-data-service/model/nar.scm
+++ b/guix-data-service/model/nar.scm
@@ -301,10 +301,8 @@ ORDER BY build_server_id DESC, system, target, 
build_server_id, substitute_known
                             count))))
              rest))))
    (group-to-alist
-    (match-lambda
-      ((build-server-id system target substitute-known? count)
-       (cons build-server-id
-             (list system target substitute-known? count))))
+    ;; Group by build-server-id
+    identity
     (map (match-lambda
            ((build_server_id system target substitutes_known count)
             (list (string->number build_server_id)