diff options
| author | Sam T <pxqr.sta@gmail.com> | 2013-06-07 23:27:31 +0400 |
|---|---|---|
| committer | Sam T <pxqr.sta@gmail.com> | 2013-06-07 23:27:31 +0400 |
| commit | a30bb766e8f2bea19e5a8f1739354d5f7894df1d (patch) | |
| tree | 5209629a266b6cc007f1e3d24469b70a0a4c6960 /src/Network/BitTorrent/Tracker.hs | |
| parent | ec063c9e50aa6f19e82e836a33c10d596f766290 (diff) | |
~ Fix bitfield encoding.
Diffstat (limited to 'src/Network/BitTorrent/Tracker.hs')
| -rw-r--r-- | src/Network/BitTorrent/Tracker.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Network/BitTorrent/Tracker.hs b/src/Network/BitTorrent/Tracker.hs index 2e599002..aaa08f3c 100644 --- a/src/Network/BitTorrent/Tracker.hs +++ b/src/Network/BitTorrent/Tracker.hs | |||
| @@ -145,7 +145,7 @@ data TSession = TSession { | |||
| 145 | newSession :: Progress -> Int -> [PeerAddr] -> IO TSession | 145 | newSession :: Progress -> Int -> [PeerAddr] -> IO TSession |
| 146 | newSession pr i ps = TSession <$> newTVarIO pr | 146 | newSession pr i ps = TSession <$> newTVarIO pr |
| 147 | <*> newIORef i | 147 | <*> newIORef i |
| 148 | <*> newTVarIO psx | 148 | <*> newTVarIO ps |
| 149 | 149 | ||
| 150 | getPeerList :: TSession -> IO [PeerAddr] | 150 | getPeerList :: TSession -> IO [PeerAddr] |
| 151 | getPeerList = readTVarIO . sePeers | 151 | getPeerList = readTVarIO . sePeers |