05/07: Handle derivations with no sources

[Christopher Baines]

cbaines pushed a commit to branch master
in repository data-service.

commit 4f1ae74d2fb7feeaa43fecc773c417a16005d56b
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Sun Nov 5 18:49:23 2023 +0000

    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)