summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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))))))