diff options
| -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)))))) |