wss-client 0.1.0.1 → 0.2.0.0

raw patch · 3 files changed

+8/−8 lines, 3 files

Files

• app/sample.hs +1/−1
• src/Network/WebSockets/Client.hs +6/−6
• wss-client.cabal +1/−1

@@ -16,7 +16,7 @@ main :: IO () main = do   url <- head <$> getArgs-  WS.withClient url $ \conn -> do+  WS.withConnection url $ \conn -> do     tid <- forkIO $ forever $ do       msg <- WS.receiveData conn       B.putStrLn msg

@@ -6,7 +6,7 @@ --             is NOT supported.  module Network.WebSockets.Client-  ( withClient+  ( withConnection      -- * Re-export from Network.WebSockets   , WS.Connection@@ -61,18 +61,18 @@ -- --   __NOTE__: Currently, non-TLS connection via an HTTP proxy server --             is NOT supported.-withClient+withConnection   :: String -- ^ Endpoint URL (e.g. wss:\/\/example.com\/path).   -> (WS.Connection -> IO a) -- ^ Action using the 'WS.Connection'   -> IO a-withClient url action = do+withConnection url action = do   man <- Http.newManager tlsManagerSettings-  withWsClientFromManager man url action+  withConnectionFromManager man url action  -withWsClientFromManager+withConnectionFromManager   :: Http.Manager -> String -> (WS.Connection -> IO a) -> IO a-withWsClientFromManager man rawUrl action = do+withConnectionFromManager man rawUrl action = do   (isSecure, host, path) <- parseWsUrl rawUrl    let httpUrl = (if isSecure then "https://" else "http://") ++ host ++ path

@@ -1,5 +1,5 @@ name:                wss-client-version:             0.1.0.1+version:             0.2.0.0 synopsis:            A-little-higher-level WebSocket client. description:         A-little-higher-level WebSocket client. Based on http-client and http-client-tls. homepage:            https://github.com/iij-ii/wss-client