diff options
Diffstat (limited to 'guix-data-service/substitutes.scm')
| -rw-r--r-- | guix-data-service/substitutes.scm | 31 |
1 files changed, 16 insertions, 15 deletions
diff --git a/guix-data-service/substitutes.scm b/guix-data-service/substitutes.scm index 953f693..87b6bbb 100644 --- a/guix-data-service/substitutes.scm +++ b/guix-data-service/substitutes.scm @@ -130,22 +130,23 @@ (for-each (match-lambda ((git-repository-id rest ...) - (for-each - (match-lambda - ((branch-name rest ...) - (and=> (latest-processed-commit-for-branch - conn - (number->string git-repository-id) - branch-name) - (lambda (commit) - (query-build-server-substitutes + (when (git-repository-query-substitutes? conn git-repository-id) + (for-each + (match-lambda + ((branch-name rest ...) + (and=> (latest-processed-commit-for-branch conn - #f ;; All build servers - (list commit) - #f))))) - (all-branches-with-most-recent-commit - conn - git-repository-id)))) + (number->string git-repository-id) + branch-name) + (lambda (commit) + (query-build-server-substitutes + conn + #f ;; All build servers + (list commit) + #f))))) + (all-branches-with-most-recent-commit + conn + git-repository-id))))) (all-git-repositories conn)))) (simple-format #t "finished checking substitutes, now sleeping\n") |