06/06: Move and improve the "starting the server" message

[Christopher Baines]

cbaines pushed a commit to branch master
in repository data-service.

commit ded4df66321b8d7c3fa1a0a9a8bc231656444a1b
Author: Christopher Baines <address@hidden>
AuthorDate: Sat Mar 14 13:14:29 2020 +0000

    Move and improve the "starting the server" message
    
    Move it after the output relating to narinfo signing, and include the host.
---
 scripts/guix-data-service.in | 9 ++++++---
 1 file 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))))