branch master updated: remote-server: Fix add-to-store procedure.

[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 d05ef0b  remote-server: Fix add-to-store procedure.
d05ef0b is described below

commit d05ef0bb5ced41a7be83939672b3bf52097fee45
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Mon Dec 6 12:10:43 2021 +0100

    remote-server: Fix add-to-store procedure.
    
    * src/cuirass/scripts/remote-server.scm (add-to-store): Add a drv argument.
---
 src/cuirass/scripts/remote-server.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/cuirass/scripts/remote-server.scm 
b/src/cuirass/scripts/remote-server.scm
index 29ffa4c..cb7eb23 100644
--- a/src/cuirass/scripts/remote-server.scm
+++ b/src/cuirass/scripts/remote-server.scm
@@ -334,9 +334,10 @@ be used to reply to the worker."
      (lambda (tmp-file port)
        (url-fetch* narinfo-url tmp-file)))))
 
-(define (add-to-store outputs url)
+(define (add-to-store drv outputs url)
   "Add the OUTPUTS that are available from the substitute server at URL to the
-store."
+store.  Register GC roots for the matching DRV and trigger a substitute baking
+at URL."
   (parameterize ((current-build-output-port (%make-void-port "w")))
     (with-store store
       (set-build-options* store (list url))
@@ -386,7 +387,7 @@ directory."
        (log-message "fetching '~a' from ~a" drv url)
        (call-with-time
         (lambda ()
-          (add-to-store outputs url))
+          (add-to-store drv outputs url))
         (lambda (time result)
           (let ((duration (+ (time-second time)
                              (/ (time-nanosecond time) 1e9))))