Fix null handling in result-serializer-simple-list-with-null-handling

2025-01-26 10:10:50 +00:00 · 2025-01-26 10:10:50 +00:00 · ad30746fab
commit ad30746fab
parent 25bf45fe77
1 changed files with 1 additions and 1 deletions
--- 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))