branch master updated: hydra: bayfront: 'hpcguix-web' links to package history on data.guix.gnu.org.

[Ludovic Courtès]

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

civodul pushed a commit to branch master
in repository maintenance.

The following commit(s) were added to refs/heads/master by this push:
     new c290989  hydra: bayfront: 'hpcguix-web' links to package history on 
data.guix.gnu.org.
c290989 is described below

commit c290989243a0fbedbbdd724a940552676967def5
Author: Ludovic Courtès <address@hidden>
AuthorDate: Tue Mar 31 15:46:21 2020 +0200

    hydra: bayfront: 'hpcguix-web' links to package history on 
data.guix.gnu.org.
    
    * hydra/bayfront.scm (services)[hpcguix-web]: Add
    'package-page-extension-proc'.
---
 hydra/bayfront.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/hydra/bayfront.scm b/hydra/bayfront.scm
index ff5c2f7..e1f3d7a 100644
--- a/hydra/bayfront.scm
+++ b/hydra/bayfront.scm
@@ -202,7 +202,14 @@ Happy hacking!\n"))
                                   (hpcweb-configuration
                                    (title-prefix "Guix-HPC — ")
                                    (package-filter-proc (const #t))
-                                   (package-page-extension-proc (const '()))
+                                   (package-page-extension-proc
+                                    (lambda (path)
+                                      (let ((url (string-append
+                                                  
"http://data.guix.gnu.org/repository/1/branch/master/package/";
+                                                  (basename path))))
+                                        `(div
+                                          (a (@ (href ,url))
+                                             "View package version 
history.")))))
                                    (menu '(("/about"  "ABOUT")
                                            ("/browse" "BROWSE")
                                            ("/blog"   "BLOG"))))))))