From 7e1508679d428056553586dab65eacf7ccb97832 Mon Sep 17 00:00:00 2001 From: Daniel Gröber Date: Fri, 20 Dec 2013 18:05:24 +0100 Subject: Fix ambigous occurence of lookAhead --- src/Network/BitTorrent/Core/PeerId.hs | 4 ++-- 1 file 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) 'e' -> Fingerprint <$> getBitCometImpl <*> getBitCometVersion 'F' -> Fingerprint <$> getBitCometImpl <*> getBitCometVersion c -> do - c1 <- w2c <$> lookAhead getWord8 + c1 <- w2c <$> S.lookAhead getWord8 if c1 == 'P' then do _ <- getWord8 @@ -324,7 +324,7 @@ fingerprint pid = either (const def) id $ runGet getCI (getPeerId pid) getBitCometImpl = do bs <- getByteString 3 - lookAhead $ do + S.lookAhead $ do _ <- getByteString 2 lr <- getByteString 4 return $ -- cgit v1.2.3