summaryrefslogtreecommitdiff
path: root/website
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2017-02-08 17:58:37 +0100
committerLudovic Courtès <ludo@gnu.org>2017-02-08 18:00:25 +0100
commit251df6ca14479b4d4f583383beebf1b2407b7103 (patch)
tree14ef1f612439b2fe9730d2499f5efcc3f6e38f56 /website
parent6ffa174fadd07696894558341f15696e8ee124b3 (diff)
downloadguix-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.
Diffstat (limited to 'website')
-rw-r--r--website/www/packages.scm18
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))))))