dp wiz avatar dp wiz committed 341fb44

broadcast to a service on all peers.

Comments (0)

Files changed (1)

src/Control/Distributed/Backend/P2P.hs

 module Control.Distributed.Backend.P2P (
     bootstrap,
     makeNodeId,
-    getPeers
+    getPeers,
+    nsendPeers
 ) where
 
 import           Control.Distributed.Process                as DP
 import qualified Control.Distributed.Process.Node           as DPN
 import qualified Control.Distributed.Process.Internal.Types as DPT
+import           Control.Distributed.Process.Serializable (Serializable)
 import           Network.Transport (EndPointAddress(..))
 import           Network.Transport.TCP (createTransport, defaultTCPParameters)
 
     QueryResult nodes <- receiveChan r
     return nodes
 
+-- | Broadcast a message to a specific service on all peers.
+nsendPeers :: Serializable a => String -> a -> Process ()
+nsendPeers service msg = getPeers >>= mapM_ (\peer -> nsendRemote peer service msg)
+
 -- | A set of p2p messages.
 data PeerMessage = PeerPing
                  | PeerExchange [DPT.ProcessId]
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.