1 files changed, 2 insertions, 2 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