fix hlint suggestions

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

diff --git a/src/FuncTorrent/Tracker.hs b/src/FuncTorrent/Tracker.hs
index aac578c8aa7f77a05d020840b603dd05829ed540..5cd6aeaa686dcd6b45bec0e18037054a7fb80fa8 100644 (file)
--- 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