úÎH<Safe     NoneA secure replacement for .let app _connection = return ()0runSecureClient "echo.websocket.org" 443 "/" appA secure replacement for .&let options = defaultConnectionOptionslet headers = []let app _connection = return ()DrunSecureClientWith "echo.websocket.org" 443 "/" options headers appKIf you want to run a secure client without certificate validation, use . For example: ÿNlet host = "echo.websocket.org" let port = 443 let path = "/" let options = defaultConnectionOptions let headers = [] let tlsSettings = TLSSettingsSimple -- This is the important setting. { settingDisableCertificateValidation = True , settingDisableSession = False , settingUseServerName = False } let connectionParams = ConnectionParams { connectionHostname = host , connectionPort = port , connectionUseSecure = Just tlsSettings , connectionUseSocks = Nothing } context <- initConnectionContext connection <- connectTo context connectionParams stream <- makeStream (fmap Just (connectionGetChunk connection)) (maybe (return ()) (connectionPut connection . toStrict)) runClientWithStream stream host path options headers $ \ connection -> do -- Do something with the connection. return ()HostPortPath ApplicationHostPortPathOptionsHeaders Application     wuss_L22QnDB4T3I61X4ArECIveWuss Paths_wussNetwork.WebSockets runClient runClientWithrunSecureClientrunSecureClientWithcatchIOversionbindirlibdirdatadir libexecdir sysconfdir getBinDir getLibDir getDataDir getLibexecDir getSysconfDirgetDataFileNamewebso_IUMaJdWboykF3gdrAzdkN4Network.WebSockets.ClientrunClientWithStreamconnectionParams tlsSettingsreaderwriter