summaryrefslogtreecommitdiff
path: root/src/Network
diff options
context:
space:
mode:
Diffstat (limited to 'src/Network')
-rw-r--r--src/Network/BitTorrent/PeerWire/ClientInfo.hs2
-rw-r--r--src/Network/BitTorrent/PeerWire/Message.hs2
-rw-r--r--src/Network/BitTorrent/Tracker/Protocol.hs1
3 files changed, 2 insertions, 3 deletions
diff --git a/src/Network/BitTorrent/PeerWire/ClientInfo.hs b/src/Network/BitTorrent/PeerWire/ClientInfo.hs
index 3b60f75c..e2da4d3b 100644
--- a/src/Network/BitTorrent/PeerWire/ClientInfo.hs
+++ b/src/Network/BitTorrent/PeerWire/ClientInfo.hs
@@ -190,7 +190,7 @@ clientInfo :: PeerID -> ClientInfo
190clientInfo pid = either (const unknownClient) id $ runGet getCI (getPeerID pid) 190clientInfo pid = either (const unknownClient) id $ runGet getCI (getPeerID pid)
191 where -- TODO other styles 191 where -- TODO other styles
192 getCI = do 192 getCI = do
193 getWord8 193 _ <- getWord8
194 ClientInfo <$> (parseImpl <$> getByteString 2) <*> getByteString 4 194 ClientInfo <$> (parseImpl <$> getByteString 2) <*> getByteString 4
195 195
196 196
diff --git a/src/Network/BitTorrent/PeerWire/Message.hs b/src/Network/BitTorrent/PeerWire/Message.hs
index c98c9808..e833ba03 100644
--- a/src/Network/BitTorrent/PeerWire/Message.hs
+++ b/src/Network/BitTorrent/PeerWire/Message.hs
@@ -77,7 +77,7 @@ data Message = KeepAlive
77instance Serialize Message where 77instance Serialize Message where
78 get = do 78 get = do
79 len <- getInt 79 len <- getInt
80 lookAhead $ ensure len 80 _ <- lookAhead $ ensure len
81 if len == 0 then return KeepAlive 81 if len == 0 then return KeepAlive
82 else do 82 else do
83 mid <- getWord8 83 mid <- getWord8
diff --git a/src/Network/BitTorrent/Tracker/Protocol.hs b/src/Network/BitTorrent/Tracker/Protocol.hs
index 616e760b..c0e84c24 100644
--- a/src/Network/BitTorrent/Tracker/Protocol.hs
+++ b/src/Network/BitTorrent/Tracker/Protocol.hs
@@ -37,7 +37,6 @@ import Control.Applicative
37import Control.Monad 37import Control.Monad
38import Data.Char as Char 38import Data.Char as Char
39import Data.Word (Word32) 39import Data.Word (Word32)
40import Data.List as L
41import Data.Map as M 40import Data.Map as M
42import Data.Monoid 41import Data.Monoid
43import Data.BEncode 42import Data.BEncode