branch master updated: remote-server: Move trigger-substitutes-baking 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 41c10b6  remote-server: Move trigger-substitutes-baking procedure.
41c10b6 is described below

commit 41c10b6688d8f274a413cf5cb468ef442986f362
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Mon Dec 6 12:04:58 2021 +0100

    remote-server: Move trigger-substitutes-baking procedure.
    
    * src/cuirass/scripts/remote-server.scm: Move trigger-substitutes-baking 
upper.
---
 src/cuirass/scripts/remote-server.scm | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/src/cuirass/scripts/remote-server.scm 
b/src/cuirass/scripts/remote-server.scm
index 5fa1768..29ffa4c 100644
--- a/src/cuirass/scripts/remote-server.scm
+++ b/src/cuirass/scripts/remote-server.scm
@@ -325,6 +325,15 @@ be used to reply to the worker."
              #f))
     (ensure-path store output)))
 
+(define (trigger-substitutes-baking output url)
+  (let* ((store-hash (strip-store-prefix output))
+         (narinfo-url (publish-narinfo-url url store-hash)))
+    (when (%debug)
+      (log-message "Bake: ~a" narinfo-url))
+    (call-with-temporary-output-file
+     (lambda (tmp-file port)
+       (url-fetch* narinfo-url tmp-file)))))
+
 (define (add-to-store outputs url)
   "Add the OUTPUTS that are available from the substitute server at URL to the
 store."
@@ -343,15 +352,6 @@ store."
                                             (%trigger-substitute-url)))))
        (map derivation-output-path outputs)))))
 
-(define (trigger-substitutes-baking output url)
-  (let* ((store-hash (strip-store-prefix output))
-         (narinfo-url (publish-narinfo-url url store-hash)))
-    (when (%debug)
-      (log-message "Bake: ~a" narinfo-url))
-    (call-with-temporary-output-file
-     (lambda (tmp-file port)
-       (url-fetch* narinfo-url tmp-file)))))
-
 (define (need-fetching? message)
   "Return #t if the received MESSAGE implies that some output fetching is
 required and #f otherwise."