04/04: Only query for substitutes for things built in the last 5 minutes

[Christopher Baines]

cbaines pushed a commit to branch master
in repository data-service.

commit a8b903f7b9ec5bd729712c40f14e7d46d2124d58
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Sat Apr 10 10:08:50 2021 +0100

    Only query for substitutes for things built in the last 5 minutes
---
 guix-data-service/substitutes.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/guix-data-service/substitutes.scm 
b/guix-data-service/substitutes.scm
index eff5208..724f3e1 100644
--- a/guix-data-service/substitutes.scm
+++ b/guix-data-service/substitutes.scm
@@ -17,6 +17,7 @@
 
 (define-module (guix-data-service substitutes)
   #:use-module (srfi srfi-1)
+  #:use-module (srfi srfi-19)
   #:use-module (ice-9 match)
   #:use-module (guix substitutes)
   #:use-module (guix narinfo)
@@ -69,7 +70,13 @@
         (select-outputs-without-known-nar-entries
          conn
          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"
                  (length outputs))