diff options
| -rw-r--r-- | guix-data-service/model/package-metadata.scm | 8 | ||||
| -rw-r--r-- | tests/jobs-load-new-guix-revision.scm | 6 |
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 |