1 files changed, 6 insertions, 6 deletions

diff --git a/src/Network/BitTorrent/Exchange/Block.hs b/src/Network/BitTorrent/Exchange/Block.hs
index ccc7a0a9..bc9a3d24 100644
--- a/src/Network/BitTorrent/Exchange/Block.hs
+++ b/src/Network/BitTorrent/Exchange/Block.hs
@@ -67,7 +67,7 @@ import Data.Serialize as S
 import Data.Typeable
 import Numeric
 import Text.PrettyPrint as PP hiding ((<>))
-import Text.PrettyPrint.Class
+import Text.PrettyPrint.HughesPJClass hiding ((<>),($$))
 
 import Data.Torrent
 
@@ -138,7 +138,7 @@ instance Serialize BlockIx where
   {-# INLINE put #-}
 
 instance Pretty BlockIx where
-  pretty BlockIx {..} =
+  pPrint BlockIx {..} =
     ("piece  = " <> int ixPiece  <> ",") <+>
     ("offset = " <> int ixOffset <> ",") <+>
     ("length = " <> int ixLength)
@@ -169,8 +169,8 @@ data Block payload = Block {
 
 -- | Payload is ommitted.
 instance Pretty (Block BL.ByteString) where
-  pretty = pretty . blockIx
-  {-# INLINE pretty #-}
+  pPrint = pPrint . blockIx
+  {-# INLINE pPrint #-}
 
 -- | Get size of block /payload/ in bytes.
 blockSize :: Block BL.ByteString -> BlockSize
@@ -241,8 +241,8 @@ valid = check Nothing
       check (Just False) xs
 
 instance Pretty Bucket where
-  pretty Nil = nilInvFailed
-  pretty bkt = go bkt
+  pPrint Nil = nilInvFailed
+  pPrint bkt = go bkt
     where
       go  Nil           = PP.empty
       go (Span sz   xs) = "Span" <+> PP.int sz <+> go xs