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

Fix some nulls

Browse source
This commit is contained in:
Christopher Baines 2025-02-06 16:08:47 +00:00
parent 258ee0468b
commit 9e3cfabe77
2 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
guix-data-service/model/derivation.scm
View file

@ -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

3
guix-data-service/web/revision/html.scm
View file

@ -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)