diff options
Diffstat (limited to 'guix-qa-frontpage/server.scm')
| -rw-r--r-- | guix-qa-frontpage/server.scm | 17 |
1 files changed, 15 insertions, 2 deletions
diff --git a/guix-qa-frontpage/server.scm b/guix-qa-frontpage/server.scm index bf4a589..3b1df5d 100644 --- a/guix-qa-frontpage/server.scm +++ b/guix-qa-frontpage/server.scm @@ -370,7 +370,19 @@ issue-data #:args (list (string->number number)) - #:ttl 6000))) + #:ttl 6000)) + (master-branch-substitute-availability + (with-sqlite-cache + database + 'master-branch-data + master-branch-data + #:ttl 6000)) + (systems-with-low-substitute-availability + (get-systems-with-low-substitute-availability + master-branch-substitute-availability + (delete "i586-gnu" + %systems-to-submit-builds-for + string=?)))) (render-html #:sxml (issue-view number series @@ -383,7 +395,8 @@ derivation-changes-counts builds-missing? change-details - comparison-details))) + comparison-details + systems-with-low-substitute-availability))) (or (and=> (branch-for-issue database (string->number number)) |