[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
branch wip-offload updated: tmp6
From: |
Mathieu Othacehe |
Subject: |
branch wip-offload updated: tmp6 |
Date: |
Mon, 21 Dec 2020 05:53:28 -0500 |
This is an automated email from the git hooks/post-receive script.
mothacehe pushed a commit to branch wip-offload
in repository guix-cuirass.
The following commit(s) were added to refs/heads/wip-offload by this push:
new c494fa6 tmp6
c494fa6 is described below
commit c494fa617db51ca1d583c0898ced284ef383a930
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Mon Dec 21 11:53:20 2020 +0100
tmp6
---
src/cuirass/remote-server.scm | 40 ++++++++++++++++++++--------------------
1 file changed, 20 insertions(+), 20 deletions(-)
diff --git a/src/cuirass/remote-server.scm b/src/cuirass/remote-server.scm
index 5377bbd..bcc7354 100644
--- a/src/cuirass/remote-server.scm
+++ b/src/cuirass/remote-server.scm
@@ -556,28 +556,28 @@ exiting."
(%package-database database)
(%public-key public-key)
(%private-key private-key))
+ (when user
+ (gather-user-privileges user))
+
+ (atomic-box-set!
+ %publish-pid
+ (publish-server publish-port
+ #:public-key public-key
+ #:private-key private-key))
+
+ (atomic-box-set!
+ %avahi-thread
+ (avahi-publish-service-thread
+ service-name
+ #:type remote-server-service-type
+ #:port backend-port
+ #:stop-loop? (lambda ()
+ (atomic-box-ref %stop-process?))
+ #:txt (list (string-append "publish="
+ (number->string publish-port)))))
+
(with-database
(with-queue-writer-worker
- (when user
- (gather-user-privileges user))
-
- (atomic-box-set!
- %publish-pid
- (publish-server publish-port
- #:public-key public-key
- #:private-key private-key))
-
- (atomic-box-set!
- %avahi-thread
- (avahi-publish-service-thread
- service-name
- #:type remote-server-service-type
- #:port backend-port
- #:stop-loop? (lambda ()
- (atomic-box-ref %stop-process?))
- #:txt (list (string-append "publish="
- (number->string publish-port)))))
-
(for-each (lambda (number)
(start-fetch-worker
(string-append "fetch-worker-"