fix hlint suggestions

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

diff --git a/src/FuncTorrent/Tracker.hs b/src/FuncTorrent/Tracker.hs
index ce630808ee8517a672eb0d91c04f4211159c789d..ab14b09e31920bb4da579e2a2c1a43d1693b80e9 100644 (file)
--- a/src/FuncTorrent/Tracker.hs
+++ b/src/FuncTorrent/Tracker.hs
@@ -65,7 +65,7 @@ mkTrackerResponse resp =
 
 -- | Connect to a tracker and get peer info
 tracker :: PortNumber -> String -> Metainfo -> IO ByteString
-tracker port peer_id m = do
+tracker port peer_id m =
   get (head . announceList $ m) $ mkArgs port peer_id m
 
 getTrackerResponse :: PortNumber -> String -> Metainfo -> IO (Either ByteString TrackerResponse)