Move and improve the "starting the server" message

Move it after the output relating to narinfo signing, and include the host.
This commit is contained in:
Christopher Baines 2020-03-14 13:14:29 +00:00
parent 865e856e8f
commit ded4df6632
1 changed files with 6 additions and 3 deletions

View File

@ -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))))