summaryrefslogtreecommitdiff
path: root/src/Network/BitTorrent/Core/PeerId.hs
diff options
context:
space:
mode:
authorSam Truzjan <pxqr.sta@gmail.com>2013-12-20 20:29:29 +0400
committerSam Truzjan <pxqr.sta@gmail.com>2013-12-20 20:29:29 +0400
commit17be47e8f10907ff1479a83595ef5fb920b6acbd (patch)
treec49e58bf07cd845dcbbae35bc6c06e0b97cc8a1d /src/Network/BitTorrent/Core/PeerId.hs
parentf061e4aff630e6f4793b962f99c42e70c337c46f (diff)
Bump bencoding dependency
Diffstat (limited to 'src/Network/BitTorrent/Core/PeerId.hs')
-rw-r--r--src/Network/BitTorrent/Core/PeerId.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Network/BitTorrent/Core/PeerId.hs b/src/Network/BitTorrent/Core/PeerId.hs
index f30308d4..cab30331 100644
--- a/src/Network/BitTorrent/Core/PeerId.hs
+++ b/src/Network/BitTorrent/Core/PeerId.hs
@@ -305,7 +305,7 @@ fingerprint pid = either (const def) id $ runGet getCI (getPeerId pid)
305 'e' -> Fingerprint <$> getBitCometImpl <*> getBitCometVersion 305 'e' -> Fingerprint <$> getBitCometImpl <*> getBitCometVersion
306 'F' -> Fingerprint <$> getBitCometImpl <*> getBitCometVersion 306 'F' -> Fingerprint <$> getBitCometImpl <*> getBitCometVersion
307 c -> do 307 c -> do
308 c1 <- w2c <$> lookAhead getWord8 308 c1 <- w2c <$> S.lookAhead getWord8
309 if c1 == 'P' 309 if c1 == 'P'
310 then do 310 then do
311 _ <- getWord8 311 _ <- getWord8
@@ -324,7 +324,7 @@ fingerprint pid = either (const def) id $ runGet getCI (getPeerId pid)
324 324
325 getBitCometImpl = do 325 getBitCometImpl = do
326 bs <- getByteString 3 326 bs <- getByteString 3
327 lookAhead $ do 327 S.lookAhead $ do
328 _ <- getByteString 2 328 _ <- getByteString 2
329 lr <- getByteString 4 329 lr <- getByteString 4
330 return $ 330 return $