diff options
| -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) |