From 82375df3f48246e13e6c9a0c24d937a54d16359a Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Mon, 24 Apr 2017 13:52:03 -0400
Subject: work around for https://github.com/jaspervdj/websockets/issues/140

---
 Server.hs | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'Server.hs')

diff --git a/Server.hs b/Server.hs
index dc23643..5467fbe 100644
--- a/Server.hs
+++ b/Server.hs
@@ -82,7 +82,15 @@ closeSession :: Session -> STM ()
 closeSession (Session bchan _ _) = closeTMChan bchan
 
 server :: ServerOpts -> IO ()
-server o = run (serverPort o) . app o =<< newServerState
+server o = runSettings settings . app o =<< newServerState
+  where
+	settings =
+		-- Prefer IPv6 but allow IPv4 as well
+		-- (Workaround for
+		-- https://github.com/jaspervdj/websockets/issues/140)
+		setHost "*6" $
+		setPort (serverPort o) $
+		defaultSettings
 
 app :: ServerOpts -> TVar ServerState -> Application
 app o ssv = websocketsOr WS.defaultConnectionOptions (websocketApp o ssv) webapp
-- 
cgit v1.2.3