From b81e7ea9500ba67ef498e5669b6facfe7acd1600 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Thu, 18 Jan 2024 15:25:41 +0000
Subject: Fixup tests

---
 guix-data-service/model/package-metadata.scm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'guix-data-service')

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"
-- 
cgit v1.2.3