~ Fix wall suggestions.

2 files changed, 7 insertions, 8 deletions

diff --git a/src/Data/Bitfield.hs b/src/Data/Bitfield.hs
index 18f80a4e..11897786 100644
--- a/src/Data/Bitfield.hs
+++ b/src/Data/Bitfield.hs
@@ -160,7 +160,7 @@ completeness :: Bitfield -> Ratio PieceCount
 completeness b = haveCount b % totalCount b
 
 inRange :: PieceIx -> Bitfield -> Bool
-inRange ix bf @ Bitfield {..} = 0 <= ix && ix < bfSize
+inRange ix Bitfield {..} = 0 <= ix && ix < bfSize
 
 member :: PieceIx -> Bitfield -> Bool
 member ix bf @ Bitfield {..}
@@ -319,11 +319,11 @@ data StartegyClass
 strategyClass :: Ratio PieceCount -> Bitfield -> StartegyClass
 strategyClass threshold = classify . completeness
   where
-    classify have
-      |          have < threshold     = SCBeginning
-      | have + 1 % numerator have < 1 = SCReady
+    classify c
+      |        c < threshold       = SCBeginning
+      | c + 1 % numerator c < 1    = SCReady
     -- FIXME numerator have is not total count
-      |           otherwise           = SCEnd
+      |          otherwise         = SCEnd
 
 
 -- | Select the first available piece.
diff --git a/src/Data/Torrent.hs b/src/Data/Torrent.hs
index ad57403e..1af8ece2 100644
--- a/src/Data/Torrent.hs
+++ b/src/Data/Torrent.hs
@@ -57,7 +57,6 @@ import Prelude hiding (sum)
 import Control.Applicative
 import Control.Arrow
 import Control.Exception
-import Control.Monad
 import Data.BEncode as BE
 import Data.Char
 import Data.Foldable
@@ -359,8 +358,8 @@ isMultiFile _            = False
 
 -- | Read and decode a .torrent file.
 fromFile :: FilePath -> IO Torrent
-fromFile path = do
-  contents <- B.readFile path
+fromFile filepath = do
+  contents <- B.readFile filepath
   case decoded contents of
     Right !t -> return t
     Left msg -> throwIO $ userError  $ msg ++ " while reading torrent"