From c88a76cb1c6ee7e54628b78a56f1a25415a39c30 Mon Sep 17 00:00:00 2001 From: joe Date: Sun, 29 Mar 2015 01:06:34 -0400 Subject: 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) --- src/Network/BitTorrent/DHT/Routing.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Network/BitTorrent/DHT/Routing.hs') 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 import Data.Word import GHC.Generics import Text.PrettyPrint as PP hiding ((<>)) -import Text.PrettyPrint.Class +import Text.PrettyPrint.HughesPJClass hiding ((<>),($$)) import Data.Torrent import Network.BitTorrent.Address @@ -325,7 +325,7 @@ instance (Eq ip, Serialize ip) => Serialize (Table ip) -- | Shape of the table. instance Pretty (Table ip) where - pretty t + pPrint t | bucketCount < 6 = hcat $ punctuate ", " $ L.map PP.int ss | otherwise = brackets $ PP.int (L.sum ss) <> " nodes, " <> -- cgit v1.2.3