From: Ramakrishnan Muthukrishnan Date: Sun, 13 Sep 2015 08:44:16 +0000 (+0530) Subject: fix hlint suggestions X-Git-Url: https://git.rkrishnan.org/pf/components/com_hotproperty/$sch_link?a=commitdiff_plain;h=e315c75ef95532f1ae1fa00abda606e1e37e85d7;p=functorrent.git fix hlint suggestions --- 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