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.45.2