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

Guard against divide by 0 in update-derivation-outputs-statistics

Browse source
This commit is contained in:
Christopher Baines 2022-11-28 13:17:20 +00:00
parent 1a0c5599eb
commit 6ada1cb845
1 changed files with 8 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

15
guix-data-service/model/derivation.scm
View file

@ -1965,16 +1965,17 @@ SELECT COUNT(DISTINCT derivation_id), COUNT(*) FROM derivation_outputs"))
(match (exec-query conn query) (match (exec-query conn query)
(((derivation_id_count all_count)) (((derivation_id_count all_count))
(exec-query (unless (< (string->number all_count) 1)
conn (exec-query
(format conn
#f (format
" #f
"
ALTER TABLE derivation_outputs ALTER TABLE derivation_outputs
ALTER COLUMN derivation_id ALTER COLUMN derivation_id
SET (n_distinct = ~7f)" SET (n_distinct = ~7f)"
(* -1 (/ (string->number derivation_id_count) (* -1 (/ (string->number derivation_id_count)
(string->number all_count))))))))) (string->number all_count))))))))))
(define (vacuum-derivation-outputs-table conn) (define (vacuum-derivation-outputs-table conn)
(exec-query (exec-query