aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--guix-data-service/model/package-metadata.scm8
-rw-r--r--tests/jobs-load-new-guix-revision.scm6
2 files changed, 9 insertions, 5 deletions
diff --git a/guix-data-service/model/package-metadata.scm b/guix-data-service/model/package-metadata.scm
index aaaee68..17f4e10 100644
--- a/guix-data-service/model/package-metadata.scm
+++ b/guix-data-service/model/package-metadata.scm
@@ -410,9 +410,11 @@ WHERE packages.id IN (
(with-time-logging "preparing location ids"
(map (match-lambda
((_ location rest ...)
- (location->location-id
- conn
- location)))
+ (if location
+ (location->location-id
+ conn
+ location)
+ NULL)))
package-metadata))
license-set-ids
(with-time-logging "preparing package description set ids"
diff --git a/tests/jobs-load-new-guix-revision.scm b/tests/jobs-load-new-guix-revision.scm
index 8213afb..a2beb64 100644
--- a/tests/jobs-load-new-guix-revision.scm
+++ b/tests/jobs-load-new-guix-revision.scm
@@ -38,7 +38,8 @@
(mock
((guix-data-service jobs load-new-guix-revision)
channel->source-and-derivations-by-system
- (lambda (conn store channel fetch-with-authentication?)
+ (lambda* (conn store channel fetch-with-authentication?
+ #:key parallelism)
(cons
"/gnu/store/guix"
'(("x86_64-linux"
@@ -57,7 +58,8 @@
extract-information-from
(lambda* (conn store guix-revision-id commit
guix-source store-path
- #:key skip-system-tests?)
+ #:key skip-system-tests?
+ parallelism)
#t))
(mock