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

4
guix-data-service/web/server.scm
View file

@ -43,8 +43,8 @@
(apply values (apply values
(run-controller controller request body))) (run-controller controller request body)))
(define (start-guix-data-service-web-server port) (define (start-guix-data-service-web-server port host)
(run-server (lambda (request body) (run-server (lambda (request body)
(handler request body controller)) (handler request body controller))
#:addr INADDR_ANY #:host host
#:port port)) #:port port))

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

@ -51,12 +51,25 @@
result))) result)))
(option '("update-database") #f #f (option '("update-database") #f #f
(lambda (opt name _ result) (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 (define %default-options
;; Alist of default option values ;; Alist of default option values
`((listen-repl . #f) `((listen-repl . #f)
(update-database . #f))) (update-database . #f)
(port . 8765)
(host . "0.0.0.0")))
(define (parse-options args) (define (parse-options args)
(args-fold (args-fold
@ -97,6 +110,10 @@
(when pid-file (when pid-file
(call-with-output-file pid-file (call-with-output-file pid-file
(lambda (port) (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)))