diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-03-14 13:14:29 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-03-14 13:14:29 +0000 |
| commit | ded4df66321b8d7c3fa1a0a9a8bc231656444a1b (patch) | |
| tree | f2da91d5aec76414d83bd2c6fa5c2834dcb0a2a2 | |
| parent | 865e856e8fdaf9a193bf506b23788baf22b45559 (diff) | |
| download | data-service-ded4df66321b8d7c3fa1a0a9a8bc231656444a1b.tar data-service-ded4df66321b8d7c3fa1a0a9a8bc231656444a1b.tar.gz | |
Move and improve the "starting the server" message
Move it after the output relating to narinfo signing, and include the host.
| -rw-r--r-- | scripts/guix-data-service.in | 9 |
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)))) |