From 8a782b3e84059cd1068500ccf327d6b9c3d6db09 Mon Sep 17 00:00:00 2001 From: Mathieu Lirzin Date: Sat, 24 Dec 2016 02:15:17 +0100 Subject: 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. --- src/cuirass/http.scm | 1 + 1 file changed, 1 insertion(+) (limited to 'src') 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 -- cgit v1.2.3