01/02: Fix issue with the system test comparison page

[Christopher Baines]

cbaines pushed a commit to branch master
in repository data-service.

commit a88e9db1ff2e26b9aa56e782a6778a914f8a3eb6
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Thu Jan 14 20:44:41 2021 +0000

    Fix issue with the system test comparison page
---
 guix-data-service/web/compare/html.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/guix-data-service/web/compare/html.scm 
b/guix-data-service/web/compare/html.scm
index 9fcd6a6..5b5fe0a 100644
--- a/guix-data-service/web/compare/html.scm
+++ b/guix-data-service/web/compare/html.scm
@@ -1233,7 +1233,10 @@ enough builds to determine a change")))
                            `(td (@ (rowspan 2))
                                 ,(render-location
                                   target-git-repositories
-                                  (assq-ref query-parameters 'target_commit)
+                                  (if (eq? mode 'revision)
+                                      (assq-ref query-parameters
+                                                'target_commit)
+                                      (second target-revision-details))
                                   location-data))
                            ""))
                       (cons