From c15da2e2b376d81671f35e821e94db19e59d5ddd Mon Sep 17 00:00:00 2001 From: Sam T Date: Sun, 30 Jun 2013 05:18:24 +0400 Subject: + Add very basic storage operations. Now we can download and make some progress, but very unstable. --- examples/Main.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'examples') 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 storage <- swarm `bindTo` "/tmp/" + ppStorage storage >>= print + discover swarm $ do liftIO $ print "connected to peer" forever $ exchange storage -- cgit v1.2.3