distributed-process-p2p 0.1.5.0 → 0.1.6.0
raw patch · 2 files changed
+12/−11 lines, 2 filesdep ~distributed-processdep ~network
Dependency ranges changed: distributed-process, network
Files
distributed-process-p2p.cabal view
@@ -1,11 +1,13 @@--- This file has been generated from package.yaml by hpack version 0.28.2.+cabal-version: 1.12++-- This file has been generated from package.yaml by hpack version 0.39.1. -- -- see: https://github.com/sol/hpack ----- hash: a8fa97b703de94703e2085a4835441a1b3f28ab0a9b2bf8caeb881d7ad0c77a5+-- hash: 955190b866f2b8f1354f797b07d8e6d430dac2b3b397817cda3cc1e45706fb2d name: distributed-process-p2p-version: 0.1.5.0+version: 0.1.6.0 synopsis: Peer-to-peer node discovery for Cloud Haskell description: Bootstraps a peer-to-peer connection network from a set of known hosts. homepage: https://bitbucket.org/dpwiz/distributed-process-p2p/@@ -16,7 +18,6 @@ copyright: Alexander Bondarenko category: Network build-type: Simple-cabal-version: >= 1.10 extra-source-files: CHANGELOG @@ -43,9 +44,9 @@ binary >=0.5, bytestring >=0.9, containers >=0.4,- distributed-process >=0.5,+ distributed-process >=0.7, mtl >=2.1,- network >=2.3,+ network >=3, network-transport >=0.4, network-transport-tcp >=0.6 @@ -56,11 +57,11 @@ ghc-options: -threaded build-depends: base ==4.*,- distributed-process >=0.5,+ distributed-process >=0.7, distributed-process-p2p, mtl >=2.1- if flag(build-example)- buildable: True other-modules: Paths_distributed_process_p2p default-language: Haskell2010+ if flag(build-example)+ buildable: True
src/Control/Distributed/Backend/P2P.hs view
@@ -33,7 +33,7 @@ import Control.Distributed.Process.Serializable (Serializable) import Network.Transport (EndPointAddress(..)) import Network.Socket (HostName, ServiceName)-import Network.Transport.TCP (createTransport, defaultTCPParameters)+import Network.Transport.TCP (createTransport, defaultTCPParameters, TCPAddr(..), TCPAddrInfo(..)) import Control.Applicative import Control.Concurrent (threadDelay)@@ -111,7 +111,7 @@ -> IO LocalNode createLocalNode host port mkExternal rTable = do transport <- either (error . show) id- <$> createTransport host port mkExternal defaultTCPParameters+ <$> createTransport (Addressable $ TCPAddrInfo host port mkExternal) defaultTCPParameters newLocalNode transport rTable peerControllerService :: String