diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2014-02-27 16:38:49 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2014-02-27 16:38:49 +0400 |
| commit | 4fa86bf2814eac33ddcd6fe16a2d9c6110d1064d (patch) | |
| tree | 74da8d2fab87c576181377891c2bf814d384e08f /src/Network/BitTorrent/Tracker | |
| parent | b29cac90e120b95a0f5fe5bcc2128ef61aec9ccd (diff) | |
s/UnrecognizedProtocol/UnrecognizedScheme
Diffstat (limited to 'src/Network/BitTorrent/Tracker')
| -rw-r--r-- | src/Network/BitTorrent/Tracker/RPC.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Network/BitTorrent/Tracker/RPC.hs b/src/Network/BitTorrent/Tracker/RPC.hs index b3e962fa..cdc7d494 100644 --- a/src/Network/BitTorrent/Tracker/RPC.hs +++ b/src/Network/BitTorrent/Tracker/RPC.hs | |||
| @@ -139,7 +139,7 @@ withManager opts info = bracket (newManager opts info) closeManager | |||
| 139 | data RpcException | 139 | data RpcException |
| 140 | = UdpException UDP.RpcException -- ^ UDP RPC driver failure; | 140 | = UdpException UDP.RpcException -- ^ UDP RPC driver failure; |
| 141 | | HttpException HTTP.RpcException -- ^ HTTP RPC driver failure; | 141 | | HttpException HTTP.RpcException -- ^ HTTP RPC driver failure; |
| 142 | | UnrecognizedProtocol String -- ^ unsupported scheme in announce URI; | 142 | | UnrecognizedScheme String -- ^ unsupported scheme in announce URI; |
| 143 | | GenericException String -- ^ for furter extensibility. | 143 | | GenericException String -- ^ for furter extensibility. |
| 144 | deriving (Show, Typeable) | 144 | deriving (Show, Typeable) |
| 145 | 145 | ||
| @@ -158,7 +158,7 @@ dispatch URI {..} http udp | |||
| 158 | | uriScheme == "http:" || | 158 | | uriScheme == "http:" || |
| 159 | uriScheme == "https:" = packException HttpException http | 159 | uriScheme == "https:" = packException HttpException http |
| 160 | | uriScheme == "udp:" = packException UdpException udp | 160 | | uriScheme == "udp:" = packException UdpException udp |
| 161 | | otherwise = throwIO $ UnrecognizedProtocol uriScheme | 161 | | otherwise = throwIO $ UnrecognizedScheme uriScheme |
| 162 | 162 | ||
| 163 | announce :: Manager -> URI -> SAnnounceQuery -> IO AnnounceInfo | 163 | announce :: Manager -> URI -> SAnnounceQuery -> IO AnnounceInfo |
| 164 | announce Manager {..} uri simpleQuery | 164 | announce Manager {..} uri simpleQuery |