diff options
Diffstat (limited to 'bin')
| -rw-r--r-- | bin/cuirass.in | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/bin/cuirass.in b/bin/cuirass.in index a1260ec..b41a713 100644 --- a/bin/cuirass.in +++ b/bin/cuirass.in @@ -37,6 +37,7 @@ exec ${GUILE:-@GUILE@} --no-auto-compile -e main -s "$0" "$@" -S --specifications=SPECFILE Add specifications from SPECFILE to database. -D --database=DB Use DB to store build results. + -p --port=NUM Port of the HTTP server. -I, --interval=N Wait N seconds between each poll --use-substitutes Allow usage of pre-built substitutes -V, --version Display version @@ -49,6 +50,7 @@ exec ${GUILE:-@GUILE@} --no-auto-compile -e main -s "$0" "$@" (cache-directory (value #t)) (specifications (single-char #\S) (value #t)) (database (single-char #\D) (value #t)) + (port (single-char #\p) (value #t)) (interval (single-char #\I) (value #t)) (use-substitutes (value #f)) (version (single-char #\V) (value #f)) @@ -76,6 +78,7 @@ exec ${GUILE:-@GUILE@} --no-auto-compile -e main -s "$0" "$@" (exit 0)) (else (let ((one-shot? (option-ref opts 'one-shot #f)) + (port (string->number (option-ref opts 'port "8080"))) (interval (string->number (option-ref opts 'interval "10"))) (specfile (option-ref opts 'specifications #f))) (with-database db @@ -94,4 +97,4 @@ exec ${GUILE:-@GUILE@} --no-auto-compile -e main -s "$0" "$@" (while #t (process-specs db (db-get-specifications db)) (sleep interval)))) - (run-cuirass-server db)))))))))) + (run-cuirass-server db #:port port)))))))))) |