02/02: hydra: build-package-metadata: Add combined file info for ‘svn-multi-fetch’.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository maintenance.

commit 16011c1fa48d83c9efc20275819b5098b2a6ce5c
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Mon Mar 4 16:56:59 2024 +0100

    hydra: build-package-metadata: Add combined file info for ‘svn-multi-fetch’.
    
    * hydra/build-package-metadata.scm (origin->json): Add “svn_files” field
    for ‘svn-multi-fetch’.
---
 hydra/build-package-metadata.scm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/hydra/build-package-metadata.scm b/hydra/build-package-metadata.scm
index 6b862eb..a99ac57 100755
--- a/hydra/build-package-metadata.scm
+++ b/hydra/build-package-metadata.scm
@@ -2,7 +2,7 @@
 !#
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2020, 2021, 2023 Simon Tournier <zimon.toutoune@gmail.com>
-;;; Copyright © 2023 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2023-2024 Ludovic Courtès <ludo@gnu.org>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -157,7 +157,12 @@ superseded packages."
                  ((eq? svn-fetch method)
                   `(("svn_url" . ,(svn-reference-url uri))))
                  ((eq? svn-multi-fetch method)
-                  `(("svn_url" . ,(svn-multi-reference-url uri))))
+                  `(("svn_url" . ,(svn-multi-reference-url uri))
+                    ;; List of files or sub-directories being combined; see
+                    ;; 
<https://gitlab.softwareheritage.org/swh/infra/sysadm-environment/-/issues/5263>.
+                    ("svn_files"
+                     . ,(list->vector
+                         (svn-multi-reference-locations uri)))))
                  ((eq? hg-fetch method)
                   `(("hg_url" . ,(hg-reference-url uri))))
                  (else '()))