diff options
| author | Christopher Baines <mail@cbaines.net> | 2025-02-06 16:08:47 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2025-02-06 17:14:47 +0000 |
| commit | 9e3cfabe77116a6a4dbc30ab1cc36b44fb31b943 (patch) | |
| tree | d7d443daf6557618e2d0d686797639243a78fa50 | |
| parent | 258ee0468b6bdfd4256b958c09a1014ad9bf6409 (diff) | |
| download | data-service-9e3cfabe77116a6a4dbc30ab1cc36b44fb31b943.tar data-service-9e3cfabe77116a6a4dbc30ab1cc36b44fb31b943.tar.gz | |
Fix some nulls
| -rw-r--r-- | guix-data-service/model/derivation.scm | 4 | ||||
| -rw-r--r-- | 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) |