diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-12-11 21:57:54 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-12-11 21:57:54 +0100 |
| commit | af27ce1399b7b7836593bb236e93c99a2ec39716 (patch) | |
| tree | 398a048aff567c385211b3b2c7d6762cabc0f755 /src/WebSocket.hs | |
| parent | 5cc8be366056baa29048acc11f4b5e14d5dbd652 (diff) | |
Switch to public websocket server
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 {..} |