diff options
Diffstat (limited to 'module/calp/server/server.scm')
-rw-r--r-- | module/calp/server/server.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/module/calp/server/server.scm b/module/calp/server/server.scm index b9d5c6d3..814aaed7 100644 --- a/module/calp/server/server.scm +++ b/module/calp/server/server.scm @@ -1,9 +1,10 @@ (define-module (calp server server) - :use-module (hnh util) :use-module (web server) :use-module ((calp server routes) :select (make-make-routes)) - :use-module (ice-9 threads)) + :use-module (ice-9 threads) + + :export (start-server)) ;; NOTE The default make-default-socket is broken for IPv6. ;; A patch has been submitted to the mailing list. 2020-03-31 @@ -22,7 +23,7 @@ ;; (define server (open-server impl open-params)) -(define-public (start-server open-params) +(define (start-server open-params) (run-server handler 'http open-params 1) ;; NOTE at first this seems to work, but it quickly deteriorates. ;; (for i in (iota 16) |