From 4c67160b92887cdfa07aa6dacc7aa7cfd6814d85 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Thu, 5 Sep 2019 13:53:51 +0200
Subject: Improve error handling for insert-missing-data-and-return-all-ids

---
 guix-data-service/model/utils.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/guix-data-service/model/utils.scm b/guix-data-service/model/utils.scm
index f569080..7798e74 100644
--- a/guix-data-service/model/utils.scm
+++ b/guix-data-service/model/utils.scm
@@ -161,9 +161,11 @@
             (symbol->string s))
            ((? string? s)
             s)
-           ((? null? s)
+           ((? null? n)
             ;; exec-query-with-null-handling specifies NULL values as '()
-            '()))
+            n)
+           (unknown
+            (error (simple-format #f "normalise-values: error: ~A\n" unknown))))
          data))
 
   (let* ((existing-entries
-- 
cgit v1.2.3