summaryrefslogtreecommitdiff
path: root/src/Network/BitTorrent/DHT/Routing.hs
diff options
context:
space:
mode:
authorjoe <joe@jerkface.net>2015-03-29 01:06:34 -0400
committerjoe <joe@jerkface.net>2015-03-29 01:06:34 -0400
commitc88a76cb1c6ee7e54628b78a56f1a25415a39c30 (patch)
tree567ee2accc815e3f2a71c8f8434eefef82e60ef7 /src/Network/BitTorrent/DHT/Routing.hs
parente569586521be76e0f02137e01af9375d327d461c (diff)
Updates to build against newer libraries:
* prettyclass instead of deprecated pretty-class * use pPrint instead of pretty * backported to iproute-1.2.11 (convenient for debian jessie)
Diffstat (limited to 'src/Network/BitTorrent/DHT/Routing.hs')
-rw-r--r--src/Network/BitTorrent/DHT/Routing.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Network/BitTorrent/DHT/Routing.hs b/src/Network/BitTorrent/DHT/Routing.hs
index ee295125..cb3cf273 100644
--- a/src/Network/BitTorrent/DHT/Routing.hs
+++ b/src/Network/BitTorrent/DHT/Routing.hs
@@ -71,7 +71,7 @@ import Data.Time.Clock.POSIX
71import Data.Word 71import Data.Word
72import GHC.Generics 72import GHC.Generics
73import Text.PrettyPrint as PP hiding ((<>)) 73import Text.PrettyPrint as PP hiding ((<>))
74import Text.PrettyPrint.Class 74import Text.PrettyPrint.HughesPJClass hiding ((<>),($$))
75 75
76import Data.Torrent 76import Data.Torrent
77import Network.BitTorrent.Address 77import Network.BitTorrent.Address
@@ -325,7 +325,7 @@ instance (Eq ip, Serialize ip) => Serialize (Table ip)
325 325
326-- | Shape of the table. 326-- | Shape of the table.
327instance Pretty (Table ip) where 327instance Pretty (Table ip) where
328 pretty t 328 pPrint t
329 | bucketCount < 6 = hcat $ punctuate ", " $ L.map PP.int ss 329 | bucketCount < 6 = hcat $ punctuate ", " $ L.map PP.int ss
330 | otherwise = brackets $ 330 | otherwise = brackets $
331 PP.int (L.sum ss) <> " nodes, " <> 331 PP.int (L.sum ss) <> " nodes, " <>