1 files changed, 1 insertions, 17 deletions
diff --git a/module/calp/server/server.scm b/module/calp/server/server.scm
index 04d33ba5..4c5a0886 100644
--- a/module/calp/server/server.scm
+++ b/module/calp/server/server.scm
@@ -4,29 +4,13 @@
   :use-module ((calp server routes) :select (make-make-routes))
   :use-module (ice-9 threads)
   :use-module (srfi srfi-88)
+  :use-module (calp server socket)
 
   :export (start-server))
 
 ;;; TODO Do I really want this hardcoded here?
 (define handler (make-make-routes))
 
-;; NOTE The default make-default-socket is broken for IPv6.
-;; A patch has been submitted to the mailing list. 2020-03-31
-;;
-;; This sets up the socket manually, and sends that to @code{http-open}.
-(define* (make-default-socket/fixed family addr port)
-  (let ((sock (socket family SOCK_STREAM 0)))
-    (setsockopt sock SOL_SOCKET SO_REUSEADDR 1)
-    (bind sock family addr port)
-    sock))
-
-(define* (setup-socket key:
-                       (host #f)
-                       (family AF_INET)
-                       (addr (if host (inet-pton family host)
-                                 INADDR_LOOPBACK))
-                       (port 8080))
-  (make-default-socket/fixed family addr port))
 
 (define (start-server open-params)
   (run-server handler