diff options
Diffstat (limited to 'src/WebSocket.hs')
| -rw-r--r-- | src/WebSocket.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/WebSocket.hs b/src/WebSocket.hs index c3e6e84..6adbfd9 100644 --- a/src/WebSocket.hs +++ b/src/WebSocket.hs @@ -46,7 +46,7 @@ instance PeerAddressType Connection where startClient :: String -> Int -> String -> (Connection -> IO ()) -> IO () startClient addr port path fun = do connUnique <- newUnique - let connAddress = "ws://" <> addr <> ":" <> show port <> "/" <> path + let connAddress = "wss://" <> addr <> ":" <> show port <> "/" <> path connJS <- js_initWebSocket (toJSString connAddress) connInQueue <- newChan let conn = Connection {..} |