From c3e85d6baeba53168ed9dd2157f9b8f70bb1532d Mon Sep 17 00:00:00 2001 From: Sam Truzjan Date: Fri, 4 Apr 2014 01:07:46 +0400 Subject: [Client] remove comment stubs --- src/Network/BitTorrent/Client/Handle.hs | 3 --- 1 file changed, 3 deletions(-) (limited to 'src/Network/BitTorrent/Client/Handle.hs') diff --git a/src/Network/BitTorrent/Client/Handle.hs b/src/Network/BitTorrent/Client/Handle.hs index 5bcb2d33..6e2dd0dc 100644 --- a/src/Network/BitTorrent/Client/Handle.hs +++ b/src/Network/BitTorrent/Client/Handle.hs @@ -38,7 +38,6 @@ import Network.BitTorrent.Tracker as Tracker -- Safe handle set manupulation -----------------------------------------------------------------------} --- | Guarantees that we newer allocate the same handle twice. allocHandle :: InfoHash -> BitTorrent Handle -> BitTorrent Handle allocHandle ih m = do c @ Client {..} <- getClient @@ -49,7 +48,6 @@ allocHandle ih m = do h <- runBitTorrent c m return (HM.insert ih h handles, h) --- | freeHandle :: InfoHash -> BitTorrent () -> BitTorrent () freeHandle ih finalizer = do c @ Client {..} <- getClient @@ -60,7 +58,6 @@ freeHandle ih finalizer = do runBitTorrent c finalizer return (HM.delete ih handles) --- | lookupHandle :: InfoHash -> BitTorrent (Maybe Handle) lookupHandle ih = do Client {..} <- getClient -- cgit v1.2.3