Move and improve the "starting the server" message

Move it after the output relating to narinfo signing, and include the host.

1 files changed, 6 insertions, 3 deletions

diff --git a/scripts/guix-data-service.in b/scripts/guix-data-service.in
index b1946a5..a09a204 100644
--- a/scripts/guix-data-service.in
+++ b/scripts/guix-data-service.in
@@ -147,9 +147,6 @@
         (lambda (port)
           (simple-format port "~A\n" (getpid))))))
 
-  (simple-format #t "starting the server on port ~A\n"
-                 (assq-ref opts 'port))
-
   (parameterize ((%narinfo-signing-public-key
                   (catch
                     'system-error
@@ -184,6 +181,12 @@
                  (%show-error-details
                   (assoc-ref opts 'show-error-details)))
 
+    ;; Provide some visual space between the startup output and the server
+    ;; starting
+    (simple-format #t "\n\nStarting the server on http://~A:~A/\n\n"
+                   (assq-ref opts 'host)
+                   (assq-ref opts 'port))
+
     (start-guix-data-service-web-server (assq-ref opts 'port)
                                         (assq-ref opts 'host)
                                         (assq-ref opts 'secret-key-base))))