[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
branch master updated: remote-server: Move trigger-substitutes-baking pr
From: |
Mathieu Othacehe |
Subject: |
branch master updated: remote-server: Move trigger-substitutes-baking procedure. |
Date: |
Mon, 06 Dec 2021 06:05:18 -0500 |
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."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- branch master updated: remote-server: Move trigger-substitutes-baking procedure.,
Mathieu Othacehe <=