Add broadcast channel for P2P messaging

1 files changed, 2 insertions, 1 deletions

diff --git a/examples/MkTorrent.hs b/examples/MkTorrent.hs
index e9eb7f1a..87a7d45e 100644
--- a/examples/MkTorrent.hs
+++ b/examples/MkTorrent.hs
@@ -361,7 +361,8 @@ exchangeTorrent ih addr = do
   pid <- genPeerId
   var <- newEmptyMVar
   let hs = Handshake def (toCaps [ExtExtended]) ih pid
-  connectWire () hs addr (toCaps [ExtMetadata]) $ do
+  chan <- newChan
+  connectWire () hs addr (toCaps [ExtMetadata]) chan $ do
     infodict <- getMetadata
     liftIO $ putMVar var infodict
   takeMVar var