diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2014-04-04 04:51:36 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2014-04-04 04:51:36 +0400 |
| commit | 1beb66f98504a39c8a6c976f243a1f69ffb48d8d (patch) | |
| tree | e26f7eff93b2ef100a768e01b0fbeb239c09dd8a /src/Network/BitTorrent/Tracker/RPC.hs | |
| parent | 13793b8d4cf7c5b4a914d778e3523e950aa2493a (diff) | |
[Internal] Add EventSource class
Diffstat (limited to 'src/Network/BitTorrent/Tracker/RPC.hs')
| -rw-r--r-- | src/Network/BitTorrent/Tracker/RPC.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Network/BitTorrent/Tracker/RPC.hs b/src/Network/BitTorrent/Tracker/RPC.hs index 39d1b09f..dc1bd4ec 100644 --- a/src/Network/BitTorrent/Tracker/RPC.hs +++ b/src/Network/BitTorrent/Tracker/RPC.hs | |||
| @@ -63,7 +63,7 @@ data SAnnounceQuery = SAnnounceQuery | |||
| 63 | { sInfoHash :: InfoHash | 63 | { sInfoHash :: InfoHash |
| 64 | , sProgress :: Progress | 64 | , sProgress :: Progress |
| 65 | , sNumWant :: Maybe Int | 65 | , sNumWant :: Maybe Int |
| 66 | , sEvent :: Maybe Event | 66 | , sEvent :: Maybe AnnounceEvent |
| 67 | } | 67 | } |
| 68 | 68 | ||
| 69 | fillAnnounceQuery :: PeerInfo -> SAnnounceQuery -> AnnounceQuery | 69 | fillAnnounceQuery :: PeerInfo -> SAnnounceQuery -> AnnounceQuery |