diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-02-08 17:58:37 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-02-08 18:00:25 +0100 |
| commit | 251df6ca14479b4d4f583383beebf1b2407b7103 (patch) | |
| tree | 14ef1f612439b2fe9730d2499f5efcc3f6e38f56 | |
| parent | 6ffa174fadd07696894558341f15696e8ee124b3 (diff) | |
| download | guix-artwork-251df6ca14479b4d4f583383beebf1b2407b7103.tar guix-artwork-251df6ca14479b4d4f583383beebf1b2407b7103.tar.gz | |
website: packages: Reproducibility page shows inconclusive reports.
* website/www/packages.scm (packages->reproducibility-sxml): Show the
number of inconclusive reports.
| -rw-r--r-- | website/www/packages.scm | 18 |
1 files changed, 13 insertions, 5 deletions
diff --git a/website/www/packages.scm b/website/www/packages.scm index 42f6de0..f13d78b 100644 --- a/website/www/packages.scm +++ b/website/www/packages.scm @@ -562,17 +562,25 @@ PACKAGES on SERVERS." #:anchor (package-anchor package)))) - (let ((mismatches (count comparison-report-mismatch? reports))) + (let ((total-items (length items)) + (mismatches (count comparison-report-mismatch? reports)) + (inconclusive (count comparison-report-inconclusive? reports))) (return `(div "Considered " ,total " packages, corresponding to " - ,(length items) " " - (tt "/gnu/store") " items.\n" + ,total-items + " " (tt "/gnu/store") " items, for " + (tt ,(%current-system)) ".\n" + "Out of these, " ,(issue-count->sxml mismatches) " were found (" ,(inexact->exact - (round (* 100. (/ mismatches (length items))))) - "%).\n\n" + (round (* 100. (/ mismatches total-items)))) + "%). There are " + ,inconclusive " items (" + ,(inexact->exact + (round (* 100. (/ inconclusive total-items)))) + "%) for which we could not conclude.\n\n" ,@(map ->sxml packages)))))) |