diff options
Diffstat (limited to 'src/Network/BitTorrent')
| -rw-r--r-- | src/Network/BitTorrent/Client/Handle.hs | 3 |
1 files changed, 0 insertions, 3 deletions
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 | |||
| 38 | -- Safe handle set manupulation | 38 | -- Safe handle set manupulation |
| 39 | -----------------------------------------------------------------------} | 39 | -----------------------------------------------------------------------} |
| 40 | 40 | ||
| 41 | -- | Guarantees that we newer allocate the same handle twice. | ||
| 42 | allocHandle :: InfoHash -> BitTorrent Handle -> BitTorrent Handle | 41 | allocHandle :: InfoHash -> BitTorrent Handle -> BitTorrent Handle |
| 43 | allocHandle ih m = do | 42 | allocHandle ih m = do |
| 44 | c @ Client {..} <- getClient | 43 | c @ Client {..} <- getClient |
| @@ -49,7 +48,6 @@ allocHandle ih m = do | |||
| 49 | h <- runBitTorrent c m | 48 | h <- runBitTorrent c m |
| 50 | return (HM.insert ih h handles, h) | 49 | return (HM.insert ih h handles, h) |
| 51 | 50 | ||
| 52 | -- | | ||
| 53 | freeHandle :: InfoHash -> BitTorrent () -> BitTorrent () | 51 | freeHandle :: InfoHash -> BitTorrent () -> BitTorrent () |
| 54 | freeHandle ih finalizer = do | 52 | freeHandle ih finalizer = do |
| 55 | c @ Client {..} <- getClient | 53 | c @ Client {..} <- getClient |
| @@ -60,7 +58,6 @@ freeHandle ih finalizer = do | |||
| 60 | runBitTorrent c finalizer | 58 | runBitTorrent c finalizer |
| 61 | return (HM.delete ih handles) | 59 | return (HM.delete ih handles) |
| 62 | 60 | ||
| 63 | -- | | ||
| 64 | lookupHandle :: InfoHash -> BitTorrent (Maybe Handle) | 61 | lookupHandle :: InfoHash -> BitTorrent (Maybe Handle) |
| 65 | lookupHandle ih = do | 62 | lookupHandle ih = do |
| 66 | Client {..} <- getClient | 63 | Client {..} <- getClient |