diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-05-09 13:43:32 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-05-09 13:43:32 +0100 |
| commit | c50f6aeb347087ed4b45454e4a95afc4ec39959c (patch) | |
| tree | db6b113e427342d0b821bec64a95e6bc17f7fe2c /guix-data-service | |
| parent | 47c482bdcc40d57d871accf576a6c19ac4c08039 (diff) | |
| download | data-service-c50f6aeb347087ed4b45454e4a95afc4ec39959c.tar data-service-c50f6aeb347087ed4b45454e4a95afc4ec39959c.tar.gz | |
Remove redundant match-lambda in select-package-output-availability-for-revision
Diffstat (limited to 'guix-data-service')
| -rw-r--r-- | guix-data-service/model/nar.scm | 6 |
1 files 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) |