Fix recording revisions as processed

When there's not a processed commits file.

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))