cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Only query for substitutes for things built in the last 5 minutes

Browse source
This commit is contained in:
Christopher Baines 2021-04-10 10:08:50 +01:00
parent f37ae27ca6
commit a8b903f7b9
1 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

9
guix-data-service/substitutes.scm
View file

@ -17,6 +17,7 @@
(define-module (guix-data-service substitutes) (define-module (guix-data-service substitutes)
#:use-module (srfi srfi-1) #:use-module (srfi srfi-1)
#:use-module (srfi srfi-19)
#:use-module (ice-9 match) #:use-module (ice-9 match)
#:use-module (guix substitutes) #:use-module (guix substitutes)
#:use-module (guix narinfo) #:use-module (guix narinfo)
@ -69,7 +70,13 @@
(select-outputs-without-known-nar-entries (select-outputs-without-known-nar-entries
conn conn
build-server-id build-server-id
revision-commits))) revision-commits
#:build-success-after
(if (null? revision-commits)
(time-utc->date
(subtract-duration (current-time)
(make-time time-duration 0 (* 60 5))))
#f))))
(simple-format #t "Querying ~A outputs\n" (simple-format #t "Querying ~A outputs\n"
(length outputs)) (length outputs))