diff options
Diffstat (limited to 'examples/Main.hs')
-rw-r--r-- | examples/Main.hs | 3 |
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 |