diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-23 03:23:44 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-23 03:48:22 +0200 |
commit | 1976980d4a272fb7fc3694c734bfc6825edfc721 (patch) | |
tree | 8460db1176c64895e9968447588953fac85fe7d6 /module/calp/server/server.scm | |
parent | Remove all inline use-modules. (diff) | |
download | calp-1976980d4a272fb7fc3694c734bfc6825edfc721.tar.gz calp-1976980d4a272fb7fc3694c734bfc6825edfc721.tar.xz |
Centralize (almost) all exports to :export in define-module.
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) |