network-simple 0.4.3 → 0.4.4
raw patch · 4 files changed
+15/−4 lines, 4 filesdep ~basedep ~networkdep ~socks
Dependency ranges changed: base, network, socks
Files
- LICENSE +1/−1
- changelog.md +5/−0
- network-simple.cabal +2/−2
- src/Network/Simple/TCP.hs +7/−1
LICENSE view
@@ -1,4 +1,4 @@-Copyright (c) 2013-2018, Renzo Carbonara <renλren.zone>+Copyright (c) 2013-2019, Renzo Carbonara <renλren.zone> All rights reserved.
changelog.md view
@@ -1,3 +1,8 @@+# Version 0.4.4++* Compatibility with `socks-0.6`.++ # Version 0.4.3 * Added SOCKS5 proxy support using the `socks` library. See functions
network-simple.cabal view
@@ -1,12 +1,12 @@ name: network-simple-version: 0.4.3+version: 0.4.4 homepage: https://github.com/k0001/network-simple bug-reports: https://github.com/k0001/network-simple/issues license: BSD3 license-file: LICENSE author: Renzo Carbonara maintainer: renλren.zone-copyright: Copyright (c) Renzo Carbonara 2013-2018+copyright: Copyright (c) Renzo Carbonara 2013-2019 category: Network build-type: Simple cabal-version: >=1.8
src/Network/Simple/TCP.hs view
@@ -412,7 +412,7 @@ -- in the wrong byte order. Here we work around that. pure (fromIntegral (byteSwap16 (fromInteger (toInteger pn)))) let dsa = NS5.SocksAddress (NS5.SocksAddrDomainName (B8.pack dhn)) dpn- NS5.establish psock [NS5.SocksMethodNone] >>= \case+ ns5Establish psock [NS5.SocksMethodNone] >>= \case NS5.SocksMethodNone -> do NS5.rpc_ psock (NS5.Connect dsa) >>= \case (NS5.SocksAddrIPV4 ha, p) -> pure (NS.SockAddrInet p ha)@@ -472,3 +472,9 @@ (NS.addrSocketType addr) (NS.addrProtocol addr) +-- Wrapper around 'NS5.establish' for backwards compatibility.+ns5Establish :: NS.Socket -> [NS5.SocksMethod] -> IO NS5.SocksMethod+ns5Establish = NS5.establish+#if MIN_VERSION_socks(0,6,0)+ NS5.SocksVer5+#endif