fix hlint suggestions
authorRamakrishnan Muthukrishnan <ram@rkrishnan.org>
Sun, 13 Sep 2015 08:44:16 +0000 (14:14 +0530)
committerRamakrishnan Muthukrishnan <ram@rkrishnan.org>
Sun, 13 Sep 2015 08:44:16 +0000 (14:14 +0530)
src/FuncTorrent/Peer.hs
src/FuncTorrent/Tracker.hs

index a7ce781ae5c5139fc34bb81f1e7f715c34e8e0ce..2db57064fcf6a1737ebeeecb0ecf53dfe188eabe 100644 (file)
@@ -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 =
index aac578c8aa7f77a05d020840b603dd05829ed540..5cd6aeaa686dcd6b45bec0e18037054a7fb80fa8 100644 (file)
@@ -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