From cf912ed933a79e2c3a616dd3f4cae5945fd738d9 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Sun, 25 May 2025 12:17:55 +0100
Subject: [PATCH] Log when specifying repositories

---
 guix-data-service/model/git-repository.scm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/guix-data-service/model/git-repository.scm b/guix-data-service/model/git-repository.scm
index 0e6327c..8efedcd 100644
--- a/guix-data-service/model/git-repository.scm
+++ b/guix-data-service/model/git-repository.scm
@@ -150,6 +150,10 @@ WHERE id = $1"
 
           (for-each
            (lambda (repo)
+             (simple-format (current-error-port)
+                            "specifying fields for repository ~A: ~A\n"
+                            (assq-ref repo 'id)
+                            (map car repo))
              (let ((fields (map car repo))
                    (field-vals (map cdr repo)))
                (update-or-insert