mirrors
/
cuirass
mirror of https://notabug.org/mthl/cuirass.git
1
0
Fork 0
Code Issues Releases Wiki Activity

http: Add 'port' keyword argument to 'run-cuirass-server'. 

* src/cuirass/http.scm (run-cuirass-server): Add 'port' keyword argument.
pull/3/head
Mathieu Lirzin 2016-12-24 01:57:27 +01:00
parent 96be568de4
commit b59b8e5567
No known key found for this signature in database
GPG Key ID: 0ADEE10094604D37
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/cuirass/http.scm
View File

@ -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