2 files changed, 6 insertions, 4 deletions
diff --git a/module/calp/server/routes.scm b/module/calp/server/routes.scm
index 3d90cc04..74836a42 100644
--- a/module/calp/server/routes.scm
+++ b/module/calp/server/routes.scm
@@ -40,6 +40,7 @@
 
   :use-module ((calp html components) :select (xhtml-doc include-css))
 
+  :export (make-make-routes)
   )
 
 
@@ -128,7 +129,7 @@
 ;; TODO ensure encoding on all fields which take user provided data.
 ;; Possibly a fallback which strips everything unknown, and treats
 ;; the bytevector as ascii.
-(define-public (make-make-routes)
+(define (make-make-routes)
   (make-routes
 
    ;; Manual redirect to not reserve root.
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)