From c73909b1bfe460997b4bf89cd5edf791804eaf66 Mon Sep 17 00:00:00 2001
From: Sam Truzjan <pxqr.sta@gmail.com>
Date: Thu, 12 Dec 2013 05:57:17 +0400
Subject: Fix -Wall suggestions in Block.hs

---
 src/Network/BitTorrent/Exchange/Block.hs | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/src/Network/BitTorrent/Exchange/Block.hs b/src/Network/BitTorrent/Exchange/Block.hs
index 8e3ef91f..ca126acb 100644
--- a/src/Network/BitTorrent/Exchange/Block.hs
+++ b/src/Network/BitTorrent/Exchange/Block.hs
@@ -34,9 +34,7 @@ module Network.BitTorrent.Exchange.Block
 import Control.Applicative
 import Data.Aeson.TH
 import Data.ByteString.Lazy as BL
-import Data.Char
 import Data.Default
-import Data.List as L
 import Data.Serialize as S
 import Data.Typeable
 import Text.PrettyPrint
@@ -121,9 +119,9 @@ instance Pretty BlockIx where
 
 -- | Get location of payload bytes in the torrent content.
 blockIxRange :: (Num a, Integral a) => PieceSize -> BlockIx -> (a, a)
-blockIxRange pieceSize BlockIx {..} = (offset, offset + len)
+blockIxRange piSize BlockIx {..} = (offset, offset + len)
   where
-    offset = fromIntegral  pieceSize * fromIntegral ixPiece
+    offset = fromIntegral piSize * fromIntegral ixPiece
            + fromIntegral ixOffset
     len    = fromIntegral ixLength
 {-# INLINE blockIxRange #-}
@@ -158,8 +156,9 @@ blockIx :: Block BL.ByteString -> BlockIx
 blockIx = BlockIx <$> blkPiece <*> blkOffset <*> blockSize
 
 -- | Get location of payload bytes in the torrent content.
-blockRange :: (Num a, Integral a) => PieceSize -> Block BL.ByteString -> (a, a)
-blockRange pieceSize = blockIxRange pieceSize . blockIx
+blockRange :: (Num a, Integral a)
+           => PieceSize -> Block BL.ByteString -> (a, a)
+blockRange piSize = blockIxRange piSize . blockIx
 {-# INLINE blockRange #-}
 
 -- | Test if a block can be safely turned into a piece.
-- 
cgit v1.2.3