diff options
-rw-r--r-- | bffe/manage-builds.scm | 8 |
1 files 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)) |