diff options
| author | Sam T <pxqr.sta@gmail.com> | 2013-06-30 05:18:24 +0400 |
|---|---|---|
| committer | Sam T <pxqr.sta@gmail.com> | 2013-06-30 05:18:24 +0400 |
| commit | c15da2e2b376d81671f35e821e94db19e59d5ddd (patch) | |
| tree | 7bcc2c929df2dd49f27ef3083eb830344b3d7685 /examples | |
| parent | f556bf196bf07308f024cc43c1a51dfd4c21188c (diff) | |
+ Add very basic storage operations.
Now we can download and make some progress, but very unstable.
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/Main.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/examples/Main.hs b/examples/Main.hs index 9786dbdc..8d976aed 100644 --- a/examples/Main.hs +++ b/examples/Main.hs | |||
| @@ -18,6 +18,8 @@ main = do | |||
| 18 | 18 | ||
| 19 | storage <- swarm `bindTo` "/tmp/" | 19 | storage <- swarm `bindTo` "/tmp/" |
| 20 | 20 | ||
| 21 | ppStorage storage >>= print | ||
| 22 | |||
| 21 | discover swarm $ do | 23 | discover swarm $ do |
| 22 | liftIO $ print "connected to peer" | 24 | liftIO $ print "connected to peer" |
| 23 | forever $ exchange storage | 25 | forever $ exchange storage |