From b59b8e55675ddd83187423a2877ad481f884aa6f Mon Sep 17 00:00:00 2001 From: Mathieu Lirzin Date: Sat, 24 Dec 2016 01:57:27 +0100 Subject: http: Add 'port' keyword argument to 'run-cuirass-server'. * src/cuirass/http.scm (run-cuirass-server): Add 'port' keyword argument. --- src/cuirass/http.scm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'src') 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 ;;; ;;; 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 -- cgit v1.2.3