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

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

@ -80,22 +80,25 @@
(simple-format #t "Got ~A narinfo files\n"
(length narinfos))
(unless (eq? (length narinfos) 0)
(with-postgresql-transaction
conn
(lambda (conn)
(record-narinfo-details-and-return-ids
conn
build-server-id
(filter-map
(lambda (narinfo)
(if (> (narinfo-size narinfo)
%narinfo-max-size)
(begin
(simple-format (current-error-port)
"narinfo ~A has excessive size ~A\n"
(narinfo-path narinfo)
(narinfo-size narinfo))
#f)
narinfo))
narinfos)))))))
(let ((filtered-narinfos
(filter-map
(lambda (narinfo)
(if (> (narinfo-size narinfo)
%narinfo-max-size)
(begin
(simple-format (current-error-port)
"narinfo ~A has excessive size ~A\n"
(narinfo-path narinfo)
(narinfo-size narinfo))
#f)
narinfo))
narinfos)))
(unless (null? filtered-narinfos)
(with-postgresql-transaction
conn
(lambda (conn)
(record-narinfo-details-and-return-ids
conn
build-server-id
filtered-narinfos)))))))