[no subject]

[Ludovic Courtès]

branch: master
commit 88b63e0f641252df4f36a2cabb74be84bb27c7c4
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Sun Sep 3 16:46:39 2023 +0200

    templates: Use record accessors in build detail page.
    
    Fixes a regression introduced in
    c445d2d642765f9589313e9ccdd826ef9bf71432.
    
    * src/cuirass/templates.scm (build-details): Use record accessors.
---
 src/cuirass/templates.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/cuirass/templates.scm b/src/cuirass/templates.scm
index 2b5cfd0..ee6963a 100644
--- a/src/cuirass/templates.scm
+++ b/src/cuirass/templates.scm
@@ -766,7 +766,7 @@ the existing SPEC otherwise."
                (if (> (length dependencies) 0)
                    `(,(map (lambda (id index)
                              (let* ((build (find-dependency id))
-                                    (status (assoc-ref build #:status)))
+                                    (status (build-current-status build)))
                                `((div
                                   ,@(if (> index (1- max-items))
                                         '((@ (class "collapse collapse-dep")))
@@ -777,7 +777,7 @@ the existing SPEC otherwise."
                                         "")
                                   " "
                                   (a (@ (href "/build/" ,id "/details"))
-                                     ,(assoc-ref build #:nix-name))
+                                     ,(build-nix-name build))
                                   (br)))))
                            dependencies
                            (iota (length dependencies)))