diff options
author | Christopher Baines <mail@cbaines.net> | 2021-03-25 17:49:44 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2021-03-25 17:49:44 +0000 |
commit | 0175914f79188d0617c87e3b0290b5e6d356a048 (patch) | |
tree | 2360d9fa985bfefe788c5f93466e6dbec298fc0d /guix-data-service/comparison.scm | |
parent | f47d337a7206b2bb12cf50f74cf5d480bde71302 (diff) | |
download | data-service-0175914f79188d0617c87e3b0290b5e6d356a048.tar data-service-0175914f79188d0617c87e3b0290b5e6d356a048.tar.gz |
Fix a null handling issue for system test derivation comparison
Diffstat (limited to 'guix-data-service/comparison.scm')
-rw-r--r-- | guix-data-service/comparison.scm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/guix-data-service/comparison.scm b/guix-data-service/comparison.scm index a61165e..e5e1955 100644 --- a/guix-data-service/comparison.scm +++ b/guix-data-service/comparison.scm @@ -1095,8 +1095,12 @@ ORDER BY coalesce(base_system_tests.name, target_system_tests.name) ASC")) (string=? base_derivation_file_name target_derivation_file_name)) base_derivation_file_name - `((base . ,base_derivation_file_name) - (target . ,target_derivation_file_name)))) + `((base . ,(if (null? base_derivation_file_name) + 'null + base_derivation_file_name)) + (target . ,(if (null? target_derivation_file_name) + 'null + target_derivation_file_name))))) (location . ,(if (and (string? base_file) (string? target_file) |