Log when specifying repositories

2025-05-25 12:17:55 +01:00 · 2025-05-25 12:17:55 +01:00 · cf912ed933
commit cf912ed933
parent 3c6ad21285
1 changed files with 4 additions and 0 deletions
--- 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