From c252639b2b3b96fd021a76f57a1acbba11782eb9 Mon Sep 17 00:00:00 2001 From: Sam Truzjan Date: Wed, 8 Jan 2014 08:48:52 +0400 Subject: Fix some -Wall suggestions --- src/Network/BitTorrent/DHT/Session.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'src') diff --git a/src/Network/BitTorrent/DHT/Session.hs b/src/Network/BitTorrent/DHT/Session.hs index 263b88ac..a4f10bb1 100644 --- a/src/Network/BitTorrent/DHT/Session.hs +++ b/src/Network/BitTorrent/DHT/Session.hs @@ -66,18 +66,16 @@ import Data.Hashable import Data.List as L import Data.Monoid import Data.Text as T -import Data.Text.Encoding as T import Data.Time import Data.Time.Clock.POSIX import System.Log.FastLogger import System.Random (randomIO) -import System.Timeout.Lifted import Text.PrettyPrint as PP hiding ((<>)) import Text.PrettyPrint.Class import Data.Torrent.InfoHash import Network.KRPC hiding (Options, def) -import qualified Network.KRPC as KRPC (Options, def) +import qualified Network.KRPC as KRPC (def) import Network.BitTorrent.Core import Network.BitTorrent.Core.PeerAddr as P import Network.BitTorrent.DHT.Message @@ -305,6 +303,7 @@ insertNode info = fork $ do -- Peer storage -----------------------------------------------------------------------} +-- TODO limit dht peer store in size (probably by removing oldest peers) insertPeer :: Eq ip => InfoHash -> PeerAddr ip -> DHT ip () insertPeer ih addr = do var <- asks contactInfo -- cgit v1.2.3