From a4a28985481353f68ce767755f8c20c0d09a94f1 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Thu, 15 Jun 2023 10:02:25 +0100 Subject: Fix recording revisions as processed When there's not a processed commits file. --- bffe/manage-builds.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/bffe/manage-builds.scm b/bffe/manage-builds.scm index d3d10fc..9ab5a3d 100644 --- a/bffe/manage-builds.scm +++ b/bffe/manage-builds.scm @@ -254,13 +254,13 @@ (make-hash-table)) (define (record-revision-as-processed commit) + (hash-set! processed-commits-hash commit #t) + (when processed-commits-file (monitor (let ((port (open-file processed-commits-file "a"))) (simple-format port "~A\n" commit) - (close-port port)) - - (hash-set! processed-commits-hash commit #t)))) + (close-port port))))) (let* ((systems-and-targets (append @@ -346,7 +346,7 @@ (build-from-guix-data-service-data-service-build-server-id specification) #:branch branch) - (record-revision-as-processed commit)) + (record-revision-as-processed commit)) (reverse unseen-revisions)))) (let ((all-branches (all-repository-branches guix-data-service repository-id)) -- cgit v1.2.3