diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2013-12-09 06:45:55 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2013-12-09 06:45:55 +0400 |
| commit | 5727e7f6f9022cc40a07e17398c8bf619e0a690f (patch) | |
| tree | 93cb1fd923c91a170933981718ed540313550ec0 /src/Network/BitTorrent/Exchange/Wire.hs | |
| parent | b00f17874babc0a63a501a4fb33f4f9c8b7d5c7d (diff) | |
Rename ProtocolString newtype to ProtocolName
Diffstat (limited to 'src/Network/BitTorrent/Exchange/Wire.hs')
| -rw-r--r-- | src/Network/BitTorrent/Exchange/Wire.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Network/BitTorrent/Exchange/Wire.hs b/src/Network/BitTorrent/Exchange/Wire.hs index fe4086bc..e0e652ec 100644 --- a/src/Network/BitTorrent/Exchange/Wire.hs +++ b/src/Network/BitTorrent/Exchange/Wire.hs | |||
| @@ -102,7 +102,7 @@ instance Pretty ChannelSide where | |||
| 102 | data ProtocolError | 102 | data ProtocolError |
| 103 | -- | Protocol string should be 'BitTorrent Protocol' but remote | 103 | -- | Protocol string should be 'BitTorrent Protocol' but remote |
| 104 | -- peer send a different string. | 104 | -- peer send a different string. |
| 105 | = InvalidProtocol ProtocolString | 105 | = InvalidProtocol ProtocolName |
| 106 | | UnexpectedTopic InfoHash -- ^ peer replied with unexpected infohash. | 106 | | UnexpectedTopic InfoHash -- ^ peer replied with unexpected infohash. |
| 107 | | UnexpectedPeerId PeerId -- ^ peer replied with unexpected peer id. | 107 | | UnexpectedPeerId PeerId -- ^ peer replied with unexpected peer id. |
| 108 | | UnknownTopic InfoHash -- ^ peer requested unknown torrent. | 108 | | UnknownTopic InfoHash -- ^ peer requested unknown torrent. |