fix hlint suggestions

[functorrent.git] / src / FuncTorrent / Peer.hs

diff --git a/src/FuncTorrent/Peer.hs b/src/FuncTorrent/Peer.hs
index a7ce781ae5c5139fc34bb81f1e7f715c34e8e0ce..2db57064fcf6a1737ebeeecb0ecf53dfe188eabe 100644 (file)
--- 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 =