branch master updated: dashboard: Fix system selection.

[Mathieu Othacehe]

This is an automated email from the git hooks/post-receive script.

mothacehe pushed a commit to branch master
in repository guix-cuirass.

The following commit(s) were added to refs/heads/master by this push:
     new 4a9f82e  dashboard: Fix system selection.
4a9f82e is described below

commit 4a9f82ef06c9690246b2b30010029890e45f7d2e
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Thu Apr 15 09:32:35 2021 +0200

    dashboard: Fix system selection.
    
    * src/cuirass/http.scm (url-handler): Use "x86_64-linux" as the default 
system
    only if is supported by the specification.
---
 src/cuirass/http.scm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/src/cuirass/http.scm b/src/cuirass/http.scm
index 5339a84..14aa302 100644
--- a/src/cuirass/http.scm
+++ b/src/cuirass/http.scm
@@ -829,11 +829,14 @@ into a specification record and return it."
     (('GET "eval" (= string->number id) "dashboard")
      (let* ((params (request-parameters request))
             (system (assq-ref params 'system))
-            (default-system "x86_64-linux")
             (spec-name (db-get-evaluation-specification id)))
        (if spec-name
            (let* ((spec (db-get-specification spec-name))
-                  (systems (specification-systems spec)))
+                  (systems (specification-systems spec))
+                  (default-system
+                    (if (member "x86_64-linux" systems)
+                        "x86_64-linux"
+                        (car systems))))
              (respond-html
               (html-page
                "Dashboard"