From e315c75ef95532f1ae1fa00abda606e1e37e85d7 Mon Sep 17 00:00:00 2001
From: Ramakrishnan Muthukrishnan <ram@rkrishnan.org>
Date: Sun, 13 Sep 2015 14:14:16 +0530
Subject: [PATCH] fix hlint suggestions

---
 src/FuncTorrent/Peer.hs    | 2 +-
 src/FuncTorrent/Tracker.hs | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/FuncTorrent/Peer.hs b/src/FuncTorrent/Peer.hs
index a7ce781..2db5706 100644
--- a/src/FuncTorrent/Peer.hs
+++ b/src/FuncTorrent/Peer.hs
@@ -109,7 +109,7 @@ pickPiece =
 
 bytesDownloaded :: PieceMap -> Integer
 bytesDownloaded =
-  sum . (map (len . snd)) . toList . filter (\v -> dlstate v == Have)
+  sum . map (len . snd) . toList . filter (\v -> dlstate v == Have)
 
 updatePieceAvailability :: PieceMap -> Peer -> [Integer] -> PieceMap
 updatePieceAvailability pieceStatus p pieceList =
diff --git a/src/FuncTorrent/Tracker.hs b/src/FuncTorrent/Tracker.hs
index aac578c..5cd6aea 100644
--- a/src/FuncTorrent/Tracker.hs
+++ b/src/FuncTorrent/Tracker.hs
@@ -71,7 +71,7 @@ tracker :: String -> ReaderT Metainfo IO ByteString
 tracker peer_id = do
   m <- ask
   let args = mkArgs peer_id m
-  liftIO $ get (head . announceList $ m) $ args
+  liftIO $ get (head . announceList $ m) args
 
 getTrackerResponse ::  String -> ReaderT Metainfo IO (Either ByteString TrackerResponse)
 getTrackerResponse peerId = do
-- 
2.37.2