From ad30746fab2c04c7dfe5e673bf604e751719adf5 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Sun, 26 Jan 2025 10:10:50 +0000
Subject: [PATCH] Fix null handling in
 result-serializer-simple-list-with-null-handling

---
 guix-data-service/database.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/guix-data-service/database.scm b/guix-data-service/database.scm
index 88d1172..1f4e13a 100644
--- a/guix-data-service/database.scm
+++ b/guix-data-service/database.scm
@@ -306,7 +306,7 @@
         (lambda (col-i)
           (let ((val (result-get-value result-ptr row-i col-i)))
             (cond
-             ((eq? #f val) '())
+             ((eq? #f val) NULL)
              ((string-null? val)
               (if (eq? 1 (%PQgetisnull
                           (squee/unwrap-result-ptr result-ptr) row-i col-i))