[no subject]

[Ludovic Courtès]

branch: master
commit 9e897d84edb403aab68afb662f1331d161a7cd22
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Thu Aug 24 15:04:21 2023 +0200

    'create-build-outputs' registers a GC root on build products.
    
    Fixes <https://issues.guix.gnu.org/64317>.
    
    * src/cuirass/base.scm (create-build-outputs): Add call to
    'register-gc-root'.
---
 src/cuirass/base.scm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/cuirass/base.scm b/src/cuirass/base.scm
index 53f7988..097d9fc 100644
--- a/src/cuirass/base.scm
+++ b/src/cuirass/base.scm
@@ -564,6 +564,7 @@ OUTPUTS, a list of <build-output> records."
                                (find-product build build-output))))
                 (when (and file (file-exists? file))
                   (log-info "Adding build product ~a" file)
+                  (register-gc-root file)
                   (db-add-build-product
                    (build-product
                     (build-id (build-id build))