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

Add --port and --host as options to the guix-data-service

Browse source
This commit is contained in:
Christopher Baines 2019-06-13 19:06:53 +01:00
parent bd292d6f57
commit 5323f24133
2 changed files with 23 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -51,12 +51,25 @@
result)))
(option '("update-database") #f #f
(lambda (opt name _ result)
(alist-cons 'update-database #t result)))))
(alist-cons 'update-database #t result)))
(option '("port") #t #f
(lambda (opt name arg result)
(alist-cons 'port
(string->number arg)
(alist-delete 'port result))))
(option '("host") #t #f
(lambda (opt name arg result)
(alist-cons 'host
arg
(alist-delete 'host result))))))
(define %default-options
;; Alist of default option values
`((listen-repl . #f)
(update-database . #f)))
(update-database . #f)
(port . 8765)
(host . "0.0.0.0")))
(define (parse-options args)
(args-fold
@ -97,6 +110,10 @@
(when pid-file
(call-with-output-file pid-file
(lambda (port)
(simple-format port "~A\n" (getpid)))))))
(simple-format port "~A\n" (getpid))))))
(start-guix-data-service-web-server 8765)
(simple-format #t "starting the server on port ~A\n"
(assq-ref opts 'port))
(start-guix-data-service-web-server (assq-ref opts 'port)
(assq-ref opts 'host)))