branch wip-offload updated: tmp6

[Mathieu Othacehe]

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-"