diff options
author | joe <joe@jerkface.net> | 2015-03-29 01:06:34 -0400 |
---|---|---|
committer | joe <joe@jerkface.net> | 2015-03-29 01:06:34 -0400 |
commit | c88a76cb1c6ee7e54628b78a56f1a25415a39c30 (patch) | |
tree | 567ee2accc815e3f2a71c8f8434eefef82e60ef7 /src/Network/BitTorrent/DHT/Routing.hs | |
parent | e569586521be76e0f02137e01af9375d327d461c (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.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, " <> |