cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove redundant match-lambda in select-package-output-availability-for-revision

Browse source
This commit is contained in:
Christopher Baines 2023-05-09 13:43:32 +01:00
parent 47c482bdcc
commit c50f6aeb34
1 changed files with 2 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
guix-data-service/model/nar.scm
View file

@ -301,10 +301,8 @@ ORDER BY build_server_id DESC, system, target, build_server_id, substitute_known
count)))) count))))
rest)))) rest))))
(group-to-alist (group-to-alist
(match-lambda ;; Group by build-server-id
((build-server-id system target substitute-known? count) identity
(cons build-server-id
(list system target substitute-known? count))))
(map (match-lambda (map (match-lambda
((build_server_id system target substitutes_known count) ((build_server_id system target substitutes_known count)
(list (string->number build_server_id) (list (string->number build_server_id)