diff options
Diffstat (limited to 'scripts/guix-data-service.in')
| -rw-r--r-- | scripts/guix-data-service.in | 25 |
1 files changed, 21 insertions, 4 deletions
diff --git a/scripts/guix-data-service.in b/scripts/guix-data-service.in index 5710266..1c57c57 100644 --- a/scripts/guix-data-service.in +++ b/scripts/guix-data-service.in @@ -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)))))) + + (simple-format #t "starting the server on port ~A\n" + (assq-ref opts 'port)) -(start-guix-data-service-web-server 8765) + (start-guix-data-service-web-server (assq-ref opts 'port) + (assq-ref opts 'host))) |