cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Christopher Baines 2025-01-26 10:10:50 +00:00
parent 25bf45fe77
commit ad30746fab
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
guix-data-service/database.scm
View file

@ -306,7 +306,7 @@
(lambda (col-i) (lambda (col-i)
(let ((val (result-get-value result-ptr row-i col-i))) (let ((val (result-get-value result-ptr row-i col-i)))
(cond (cond
((eq? #f val) '()) ((eq? #f val) NULL)
((string-null? val) ((string-null? val)
(if (eq? 1 (%PQgetisnull (if (eq? 1 (%PQgetisnull
(squee/unwrap-result-ptr result-ptr) row-i col-i)) (squee/unwrap-result-ptr result-ptr) row-i col-i))