Control.Distributed.Backend.P2P

Peer-to-peer node discovery backend for Cloud Haskell based on the TCP transport. Provided with a known node address it discovers and maintains the knowledge of it's peers.

 import qualified Control.Distributed.Backend.P2P as P2P
 import           Control.Monad.Trans (liftIO)
 import           Control.Concurrent (threadDelay)
 
 main = P2P.bootstrap "myhostname" "9001" (P2P.makeNodeId "seedhost:9000") $ do
     liftIO $ threadDelay 1000000 -- give dispatcher a second to discover other nodes
     P2P.nsendPeers "myService" ("some", "message")

Documentation

bootstrap :: String -> String -> [NodeId] -> Process () -> IO ()

Start a peerController process and aquire connections to a swarm.

makeNodeId :: String -> NodeId

Make a NodeId from host:port string.

getPeers :: Process [NodeId]

Get a list of currently available peer nodes.

nsendPeers :: Serializable a => String -> a -> Process ()

Broadcast a message to a specific service on all peers.