cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Move and improve the "starting the server" message

Browse source 
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
Download patch file Download diff file Expand all files Collapse all files

9
scripts/guix-data-service.in
View file

@ -147,9 +147,6 @@
(lambda (port) (lambda (port)
(simple-format port "~A\n" (getpid)))))) (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 (parameterize ((%narinfo-signing-public-key
(catch (catch
'system-error 'system-error
@ -184,6 +181,12 @@
(%show-error-details (%show-error-details
(assoc-ref opts '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) (start-guix-data-service-web-server (assq-ref opts 'port)
(assq-ref opts 'host) (assq-ref opts 'host)
(assq-ref opts 'secret-key-base)))) (assq-ref opts 'secret-key-base))))