From 4f1ae74d2fb7feeaa43fecc773c417a16005d56b Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 5 Nov 2023 18:49:23 +0000 Subject: [PATCH] Handle derivations with no sources --- guix-data-service/model/derivation.scm | 23 ++++++++++++----------- 1 file changed, 12 insertions(+), 11 deletions(-) diff --git a/guix-data-service/model/derivation.scm b/guix-data-service/model/derivation.scm index 4efda3a..d95e285 100644 --- a/guix-data-service/model/derivation.scm +++ b/guix-data-service/model/derivation.scm @@ -1652,17 +1652,18 @@ LIMIT $1" (simple-format #t "debug: insert-missing-derivations: inserting sources\n") (for-each (lambda (derivation-id derivation) - (let* ((sources (derivation-sources derivation)) - (sources-ids - (insert-derivation-sources conn - derivation-id - sources))) - (map (lambda (id source-file) - (insert-derivation-source-file-nar conn - id - source-file)) - sources-ids - sources))) + (let ((sources (derivation-sources derivation))) + (unless (null? sources) + (let ((sources-ids + (insert-derivation-sources conn + derivation-id + sources))) + (map (lambda (id source-file) + (insert-derivation-source-file-nar conn + id + source-file)) + sources-ids + sources))))) derivation-ids derivations)