diff options
Diffstat (limited to 'src/Network/BitTorrent/DHT/Routing.hs')
-rw-r--r-- | src/Network/BitTorrent/DHT/Routing.hs | 4 |
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 | |||
71 | import Data.Word | 71 | import Data.Word |
72 | import GHC.Generics | 72 | import GHC.Generics |
73 | import Text.PrettyPrint as PP hiding ((<>)) | 73 | import Text.PrettyPrint as PP hiding ((<>)) |
74 | import Text.PrettyPrint.Class | 74 | import Text.PrettyPrint.HughesPJClass hiding ((<>),($$)) |
75 | 75 | ||
76 | import Data.Torrent | 76 | import Data.Torrent |
77 | import Network.BitTorrent.Address | 77 | import 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. |
327 | instance Pretty (Table ip) where | 327 | instance 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, " <> |