3 files changed, 10 insertions, 10 deletions

diff --git a/src/Network/BitTorrent/DHT/Query.hs b/src/Network/BitTorrent/DHT/Query.hs
index f7657490..ac53bd91 100644
--- a/src/Network/BitTorrent/DHT/Query.hs
+++ b/src/Network/BitTorrent/DHT/Query.hs
@@ -53,7 +53,7 @@ import Data.Monoid
 import Data.Text as T
 import Network
 import Text.PrettyPrint as PP hiding ((<>), ($$))
-import Text.PrettyPrint.Class
+import Text.PrettyPrint.HughesPJClass hiding ((<>),($$))
 
 import Network.KRPC hiding (Options, def)
 import Data.Torrent
@@ -132,7 +132,7 @@ getPeersQ topic NodeInfo {..} = do
   GotPeers {..} <- GetPeers topic <@> nodeAddr
   let dist = distance (toNodeId topic) nodeId
   $(logInfoS) "getPeersQ" $ T.pack
-         $ "distance: " <> render (pretty dist) <> " , result: "
+         $ "distance: " <> render (pPrint dist) <> " , result: "
         <> case peers of { Left _ -> "NODES"; Right _ -> "PEERS" }
   return peers
 
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, " <>
diff --git a/src/Network/BitTorrent/DHT/Session.hs b/src/Network/BitTorrent/DHT/Session.hs
index 208f8ec8..0c806db2 100644
--- a/src/Network/BitTorrent/DHT/Session.hs
+++ b/src/Network/BitTorrent/DHT/Session.hs
@@ -90,7 +90,7 @@ import Network (PortNumber)
 import System.Log.FastLogger
 import System.Random (randomIO)
 import Text.PrettyPrint as PP hiding ((<>), ($$))
-import Text.PrettyPrint.Class
+import Text.PrettyPrint.HughesPJClass hiding ((<>),($$))
 
 import Data.Torrent as Torrent
 import Network.KRPC hiding (Options, def)
@@ -340,7 +340,7 @@ routing = runRouting probeNode refreshNodes getTimestamp
 
 probeNode :: Address ip => NodeAddr ip -> DHT ip Bool
 probeNode addr = do
-  $(logDebugS) "routing.questionable_node" (T.pack (render (pretty addr)))
+  $(logDebugS) "routing.questionable_node" (T.pack (render (pPrint addr)))
   result <- try $ Ping <@> addr
   let _ = result :: Either SomeException Ping
   return $ either (const False) (const True) result
@@ -351,7 +351,7 @@ probeNode addr = do
 -- FIXME do not use getClosest sinse we should /refresh/ them
 refreshNodes :: Address ip => NodeId -> DHT ip [NodeInfo ip]
 refreshNodes nid = do
-  $(logDebugS) "routing.refresh_bucket" (T.pack (render (pretty nid)))
+  $(logDebugS) "routing.refresh_bucket" (T.pack (render (pPrint nid)))
   nodes <- getClosest nid
   nss <- forM (nodeAddr <$> nodes) $ \ addr -> do
     NodeFound ns <- FindNode nid <@> addr
@@ -361,7 +361,7 @@ refreshNodes nid = do
 getTimestamp :: DHT ip Timestamp
 getTimestamp = do
   utcTime <- liftIO $ getCurrentTime
-  $(logDebugS) "routing.make_timestamp" (T.pack (render (pretty utcTime)))
+  $(logDebugS) "routing.make_timestamp" (T.pack (render (pPrint utcTime)))
   return $ utcTimeToPOSIXSeconds utcTime
 
 {-----------------------------------------------------------------------
@@ -419,11 +419,11 @@ insertNode info = fork $ do
     case result of
       Nothing -> do
         $(logDebugS) "insertNode" $ "Routing table is full: "
-                   <> T.pack (show (pretty t))
+                   <> T.pack (show (pPrint t))
         return t
       Just t' -> do
         let logMsg = "Routing table updated: "
-                  <> pretty t <> " -> " <> pretty t'
+                  <> pPrint t <> " -> " <> pPrint t'
         $(logDebugS) "insertNode" (T.pack (render logMsg))
         return t'