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

Better handle filtering narinfos

Browse source 
This avoids a query error when trying to insert data for 0 narinfos.
This commit is contained in:
Christopher Baines 2021-04-10 08:30:48 +01:00
parent 91aebb3c4e
commit 28a7cb6291
1 changed files with 22 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

19
guix-data-service/substitutes.scm
View file

@ -80,13 +80,7 @@
(simple-format #t "Got ~A narinfo files\n" (simple-format #t "Got ~A narinfo files\n"
(length narinfos)) (length narinfos))
(unless (eq? (length narinfos) 0) (let ((filtered-narinfos
(with-postgresql-transaction
conn
(lambda (conn)
(record-narinfo-details-and-return-ids
conn
build-server-id
(filter-map (filter-map
(lambda (narinfo) (lambda (narinfo)
(if (> (narinfo-size narinfo) (if (> (narinfo-size narinfo)
@ -98,4 +92,13 @@
(narinfo-size narinfo)) (narinfo-size narinfo))
#f) #f)
narinfo)) narinfo))
narinfos))))))) narinfos)))
(unless (null? filtered-narinfos)
(with-postgresql-transaction
conn
(lambda (conn)
(record-narinfo-details-and-return-ids
conn
build-server-id
filtered-narinfos)))))))