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 (map (match-lambda
((derivation_file_name latest_build) ((derivation_file_name latest_build)
`((derivation_file_name . ,derivation_file_name) `((derivation_file_name . ,derivation_file_name)
(latest_build . ,(if (null? latest_build) (latest_build . ,(if (NULL? latest_build)
'null 'null
(map (match-lambda (map (match-lambda
((key . value) ((key . value)
@ -902,7 +902,7 @@ ORDER BY derivation_output_details.path
hash hash
hash_algorithm hash_algorithm
(string=? recursive "t") (string=? recursive "t")
(if (null? nars_json) (if (NULL? nars_json)
#() #()
(json-string->scm nars_json)))) (json-string->scm nars_json))))
((package_name package_version ((package_name package_version

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

@ -22,6 +22,7 @@
#:use-module (texinfo) #:use-module (texinfo)
#:use-module (texinfo html) #:use-module (texinfo html)
#:use-module (json) #:use-module (json)
#:use-module (guix-data-service database)
#:use-module (guix-data-service model utils) #:use-module (guix-data-service model utils)
#:use-module (guix-data-service web util) #:use-module (guix-data-service web util)
#:use-module (guix-data-service web html-utils) #:use-module (guix-data-service web html-utils)
@ -2042,7 +2043,7 @@ figure {
(td (td
(dl (dl
,@(if ,@(if
(null? hash-algorithm) (NULL? hash-algorithm)
(append-map (append-map
(match-lambda (match-lambda
((hash . nars) ((hash . nars)