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

Ensure the known and unknown keys appear

Browse source
This commit is contained in:
Christopher Baines 2023-05-09 13:45:36 +01:00
parent c50f6aeb34
commit bbacbcd2aa
1 changed files with 20 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -290,16 +290,26 @@ ORDER BY build_server_id DESC, system, target, build_server_id, substitute_known
(match-lambda (match-lambda
((build-server-id . rest) ((build-server-id . rest)
(cons build-server-id (cons build-server-id
(group-to-alist (map
(match-lambda (lambda (details)
((system target substitute-known? count) ;; Ensure the known and unknown keys appear
(cons `((system . ,system) `(,@details
(target . ,target)) ,@(if (assq-ref details 'known)
(cons (if substitute-known? '()
'known '((known . 0)))
'unknown) ,@(if (assq-ref details 'unknown)
count)))) '()
rest)))) '((known . 0)))))
(group-to-alist
(match-lambda
((system target substitute-known? count)
(cons `((system . ,system)
(target . ,target))
(cons (if substitute-known?
'known
'unknown)
count))))
rest)))))
(group-to-alist (group-to-alist
;; Group by build-server-id ;; Group by build-server-id
identity identity