diff options
| author | Mathieu Lirzin <mthl@gnu.org> | 2016-12-24 01:57:27 +0100 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@gnu.org> | 2016-12-28 18:19:03 +0100 |
| commit | b59b8e55675ddd83187423a2877ad481f884aa6f (patch) | |
| tree | 1e2da599fa7cb668f1e0120eace9023a9b51bff4 | |
| parent | 96be568de4772586a3cac39524afaf8a84037c3b (diff) | |
| download | cuirass-b59b8e55675ddd83187423a2877ad481f884aa6f.tar cuirass-b59b8e55675ddd83187423a2877ad481f884aa6f.tar.gz | |
http: Add 'port' keyword argument to 'run-cuirass-server'.
* src/cuirass/http.scm (run-cuirass-server): Add 'port' keyword argument.
| -rw-r--r-- | src/cuirass/http.scm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/cuirass/http.scm b/src/cuirass/http.scm index cf7783f..7fabd61 100644 --- a/src/cuirass/http.scm +++ b/src/cuirass/http.scm @@ -1,4 +1,4 @@ -;;; http.scm -- HTTP API +;;;; http.scm -- HTTP API ;;; Copyright © 2016 Mathieu Lirzin <mthl@gnu.org> ;;; ;;; This file is part of Cuirass. @@ -70,8 +70,8 @@ #:body (string-append "Resource not found: " (uri->string (request-uri request))))))) -(define (run-cuirass-server db) - (run-server url-handler - 'http ;server implementation - '() ;implementation parameters - db)) ;state +(define* (run-cuirass-server db #:key (port 8080)) + (run-server url-handler + 'http ;server implementation + `(#:port ,port) ;implementation parameters + db)) ;state |