cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Log when specifying repositories

Browse source
This commit is contained in:
Christopher Baines 2025-05-25 12:17:55 +01:00
parent 3c6ad21285
commit cf912ed933
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
guix-data-service/model/git-repository.scm
View file

@ -150,6 +150,10 @@ WHERE id = $1"
(for-each (for-each
(lambda (repo) (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)) (let ((fields (map car repo))
(field-vals (map cdr repo))) (field-vals (map cdr repo)))
(update-or-insert (update-or-insert