branch wip-offload updated: tmp5

[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 fa05fb7  tmp5
fa05fb7 is described below

commit fa05fb7815f5fd06dbcc96b128e4b3948b39ebf7
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Mon Dec 21 11:41:54 2020 +0100

    tmp5
---
 src/cuirass/remote-server.scm | 34 +++++++++++++++++-----------------
 1 file changed, 17 insertions(+), 17 deletions(-)

diff --git a/src/cuirass/remote-server.scm b/src/cuirass/remote-server.scm
index 5d5e349..5377bbd 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))
-        (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-"