diff options
| author | Sam T <pxqr.sta@gmail.com> | 2013-06-28 23:44:45 +0400 |
|---|---|---|
| committer | Sam T <pxqr.sta@gmail.com> | 2013-06-28 23:44:45 +0400 |
| commit | 1d4b5f97c4323895d77aa197c3faf832c538aed9 (patch) | |
| tree | ea48bdd9c43c1e177183d0469bfeaaa6d3f88d02 /examples/Main.hs | |
| parent | 6d0741ea0388dea6f123df19fa014d39123bf885 (diff) | |
+ Default P2P.
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 |