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

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

@ -290,6 +290,16 @@ 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
(map
(lambda (details)
;; Ensure the known and unknown keys appear
`(,@details
,@(if (assq-ref details 'known)
'()
'((known . 0)))
,@(if (assq-ref details 'unknown)
'()
'((known . 0)))))
(group-to-alist (group-to-alist
(match-lambda (match-lambda
((system target substitute-known? count) ((system target substitute-known? count)
@ -299,7 +309,7 @@ ORDER BY build_server_id DESC, system, target, build_server_id, substitute_known
'known 'known
'unknown) 'unknown)
count)))) count))))
rest)))) rest)))))
(group-to-alist (group-to-alist
;; Group by build-server-id ;; Group by build-server-id
identity identity