summaryrefslogtreecommitdiff
path: root/examples/Main.hs
diff options
context:
space:
mode:
Diffstat (limited to 'examples/Main.hs')
-rw-r--r--examples/Main.hs3
1 files changed, 3 insertions, 0 deletions
diff --git a/examples/Main.hs b/examples/Main.hs
index d0404405..fdf982d8 100644
--- a/examples/Main.hs
+++ b/examples/Main.hs
@@ -20,6 +20,9 @@ main = do
20 client <- newClient 100 [] 20 client <- newClient 100 []
21 swarm <- newLeecher client torrent 21 swarm <- newLeecher client torrent
22 22
23-- storage <- bindStorage swarm "/tmp/"
24-- discover swarm $ exchange storage
25
23 ref <- liftIO $ newIORef 0 26 ref <- liftIO $ newIORef 0
24 discover swarm $ do 27 discover swarm $ do
25 forever $ do 28 forever $ do