diff options
| author | Mathieu Lirzin <mthl@gnu.org> | 2016-12-24 02:15:17 +0100 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@gnu.org> | 2016-12-28 18:49:21 +0100 |
| commit | 8a782b3e84059cd1068500ccf327d6b9c3d6db09 (patch) | |
| tree | 229dd5fab398ab5d2029d5a83b08bd406eac7040 /src | |
| parent | b59b8e55675ddd83187423a2877ad481f884aa6f (diff) | |
| download | cuirass-8a782b3e84059cd1068500ccf327d6b9c3d6db09.tar cuirass-8a782b3e84059cd1068500ccf327d6b9c3d6db09.tar.gz | |
cuirass: Add "--port" command line option.
* bin/cuirass.in (%options): Add "--port" and "-p" command line options.
(show-help): Adapt.
(main): Set default to 8080. Call 'run-cuirass-server' with this.
* src/cuirass/http.scm (run-cuirass-server): Display the port number.
* doc/cuirass.texi (Invocation): Document new option.
Diffstat (limited to 'src')
| -rw-r--r-- | src/cuirass/http.scm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/cuirass/http.scm b/src/cuirass/http.scm index 7fabd61..33cd37b 100644 --- a/src/cuirass/http.scm +++ b/src/cuirass/http.scm @@ -71,6 +71,7 @@ (uri->string (request-uri request))))))) (define* (run-cuirass-server db #:key (port 8080)) + (format (current-error-port) "listening on port ~A~%" port) (run-server url-handler 'http ;server implementation `(#:port ,port) ;implementation parameters |