From 47a352db1cb99df9ce26da6c715cc2925946765c Mon Sep 17 00:00:00 2001 From: Sam T Date: Fri, 14 Jun 2013 21:01:43 +0400 Subject: ~ Add documentation for PeerSession. --- exsamples/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'exsamples') diff --git a/exsamples/Main.hs b/exsamples/Main.hs index 4eb09043..d0404405 100644 --- a/exsamples/Main.hs +++ b/exsamples/Main.hs @@ -18,7 +18,7 @@ main = do print (contentLayout "./" (tInfo torrent)) client <- newClient 100 [] - swarm <- newLeacher client torrent + swarm <- newLeecher client torrent ref <- liftIO $ newIORef 0 discover swarm $ do -- cgit v1.2.3