[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/02: website: packages: Reproducibility page shows inconclusive report
From: |
Ludovic Courtès |
Subject: |
01/02: website: packages: Reproducibility page shows inconclusive reports. |
Date: |
Wed, 8 Feb 2017 12:01:01 -0500 (EST) |
civodul pushed a commit to branch master
in repository guix-artwork.
commit 251df6ca14479b4d4f583383beebf1b2407b7103
Author: Ludovic Courtès <address@hidden>
Date: Wed Feb 8 17:58:37 2017 +0100
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))))))