guix/data-service
2
0
Fork 0
mirror of git://git.savannah.gnu.org/guix/data-service.git synced 2023-12-14 03:23:03 +01:00
Code Issues Releases Wiki Activity

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
Show stats 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
(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)
(handler request body controller))
#:addr INADDR_ANY
#:host host
#:port port))

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