From 9e3cfabe77116a6a4dbc30ab1cc36b44fb31b943 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Thu, 6 Feb 2025 16:08:47 +0000 Subject: [PATCH] Fix some nulls --- guix-data-service/model/derivation.scm | 4 ++-- guix-data-service/web/revision/html.scm | 3 ++- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/guix-data-service/model/derivation.scm b/guix-data-service/model/derivation.scm index 32de464..37e0622 100644 --- a/guix-data-service/model/derivation.scm +++ b/guix-data-service/model/derivation.scm @@ -716,7 +716,7 @@ LIMIT $1")) (map (match-lambda ((derivation_file_name latest_build) `((derivation_file_name . ,derivation_file_name) - (latest_build . ,(if (null? latest_build) + (latest_build . ,(if (NULL? latest_build) 'null (map (match-lambda ((key . value) @@ -902,7 +902,7 @@ ORDER BY derivation_output_details.path hash hash_algorithm (string=? recursive "t") - (if (null? nars_json) + (if (NULL? nars_json) #() (json-string->scm nars_json)))) ((package_name package_version diff --git a/guix-data-service/web/revision/html.scm b/guix-data-service/web/revision/html.scm index 0b9d4f5..8e46c54 100644 --- a/guix-data-service/web/revision/html.scm +++ b/guix-data-service/web/revision/html.scm @@ -22,6 +22,7 @@ #:use-module (texinfo) #:use-module (texinfo html) #:use-module (json) + #:use-module (guix-data-service database) #:use-module (guix-data-service model utils) #:use-module (guix-data-service web util) #:use-module (guix-data-service web html-utils) @@ -2042,7 +2043,7 @@ figure { (td (dl ,@(if - (null? hash-algorithm) + (NULL? hash-algorithm) (append-map (match-lambda ((hash . nars)