summaryrefslogtreecommitdiff
path: root/src/Network/BitTorrent/DHT/Routing.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Network/BitTorrent/DHT/Routing.hs')
-rw-r--r--src/Network/BitTorrent/DHT/Routing.hs5
1 files changed, 4 insertions, 1 deletions
diff --git a/src/Network/BitTorrent/DHT/Routing.hs b/src/Network/BitTorrent/DHT/Routing.hs
index 8e09d95e..106aec31 100644
--- a/src/Network/BitTorrent/DHT/Routing.hs
+++ b/src/Network/BitTorrent/DHT/Routing.hs
@@ -309,7 +309,10 @@ data Table ip
309 309
310 -- right biased tree branch 310 -- right biased tree branch
311 | One (Bucket ip) (Table ip) 311 | One (Bucket ip) (Table ip)
312 deriving Generic 312 deriving (Show, Generic)
313
314instance Eq ip => Eq (Table ip) where
315 (==) = (==) `on` Network.BitTorrent.DHT.Routing.toList
313 316
314instance Serialize NominalDiffTime where 317instance Serialize NominalDiffTime where
315 put = putWord32be . fromIntegral . fromEnum 318 put = putWord32be . fromIntegral . fromEnum