From 251df6ca14479b4d4f583383beebf1b2407b7103 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Wed, 8 Feb 2017 17:58:37 +0100 Subject: website: packages: Reproducibility page shows inconclusive reports. * website/www/packages.scm (packages->reproducibility-sxml): Show the number of inconclusive reports. --- website/www/packages.scm | 18 +++++++++++++----- 1 file 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)))))) -- cgit v1.2.3