diff options
| author | Sam T <pxqr.sta@gmail.com> | 2013-04-26 05:44:12 +0400 |
|---|---|---|
| committer | Sam T <pxqr.sta@gmail.com> | 2013-04-26 05:44:12 +0400 |
| commit | e278bc588af81b01b49511fe69d4a3013a338e19 (patch) | |
| tree | 1e13f3e34be3f759a909f80c24213f37cbbd1239 /src/Network/BitTorrent/PeerWire/Message.hs | |
| parent | 4da9cd8cf951995c02e2e065503b2a79ca4acfb1 (diff) | |
~ Fix Wall suggestions.
Diffstat (limited to 'src/Network/BitTorrent/PeerWire/Message.hs')
| -rw-r--r-- | src/Network/BitTorrent/PeerWire/Message.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 | |||
| 77 | instance Serialize Message where | 77 | instance 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 |