1 files changed, 15 insertions, 15 deletions

diff --git a/src/Data/Torrent.hs b/src/Data/Torrent.hs
index cfc26453..94506d1c 100644
--- a/src/Data/Torrent.hs
+++ b/src/Data/Torrent.hs
@@ -183,7 +183,7 @@ import Network.HTTP.Types.URI
 import Network.URI
 import Text.ParserCombinators.ReadP as P
 import Text.PrettyPrint as PP
-import Text.PrettyPrint.Class
+import Text.PrettyPrint.HughesPJClass hiding ((<>),($$))
 import System.FilePath
 import System.Posix.Types
 
@@ -247,7 +247,7 @@ instance Show InfoHash where
 
 -- | Convert to base16 encoded Doc string.
 instance Pretty InfoHash where
-  pretty = text . show
+  pPrint = text . show
 
 -- | Read base16 encoded string.
 instance Read InfoHash where
@@ -397,7 +397,7 @@ instance BEncode (FileInfo BS.ByteString) where
   {-# INLINE fromBEncode #-}
 
 instance Pretty (FileInfo BS.ByteString) where
-  pretty FileInfo {..} =
+  pPrint FileInfo {..} =
        "Path: " <> text (T.unpack (T.decodeUtf8 fiName))
     $$ "Size: " <> text (show fiLength)
     $$ maybe PP.empty ppMD5 fiMD5Sum
@@ -465,8 +465,8 @@ instance BEncode LayoutInfo where
   fromBEncode = fromDict getLayoutInfo
 
 instance Pretty LayoutInfo where
-  pretty SingleFile {..} = pretty liFile
-  pretty MultiFile  {..} = vcat $ L.map (pretty . joinFilePath) liFiles
+  pPrint SingleFile {..} = pPrint liFile
+  pPrint MultiFile  {..} = vcat $ L.map (pPrint . joinFilePath) liFiles
 
 -- | Test if this is single file torrent.
 isSingleFile :: LayoutInfo -> Bool
@@ -616,7 +616,7 @@ instance NFData (Piece a)
 
 -- | Payload bytes are omitted.
 instance Pretty (Piece a) where
-  pretty Piece {..} = "Piece" <+> braces ("index" <+> "=" <+> int pieceIndex)
+  pPrint Piece {..} = "Piece" <+> braces ("index" <+> "=" <+> int pieceIndex)
 
 -- | Get size of piece in bytes.
 pieceSize :: Piece BL.ByteString -> PieceSize
@@ -685,7 +685,7 @@ instance BEncode PieceInfo where
 
 -- | Hashes are omitted.
 instance Pretty PieceInfo where
-  pretty  PieceInfo {..} = "Piece size: " <> int piPieceLength
+  pPrint  PieceInfo {..} = "Piece size: " <> int piPieceLength
 
 slice :: Int -> Int -> BS.ByteString -> BS.ByteString
 slice start len = BS.take len . BS.drop start
@@ -797,9 +797,9 @@ ppPrivacy privacy = "Privacy: " <> if privacy then "private" else "public"
 --ppAdditionalInfo layout = PP.empty
 
 instance Pretty InfoDict where
-  pretty InfoDict {..} =
-    pretty idLayoutInfo $$
-    pretty  idPieceInfo  $$
+  pPrint InfoDict {..} =
+    pPrint idLayoutInfo $$
+    pPrint  idPieceInfo  $$
     ppPrivacy    idPrivate
 
 {-----------------------------------------------------------------------
@@ -930,11 +930,11 @@ _    <:>?  Nothing = PP.empty
 name <:>? (Just d) = name <:> d
 
 instance Pretty Torrent where
-  pretty Torrent {..} =
-       "InfoHash: " <> pretty (idInfoHash tInfoDict)
+  pPrint Torrent {..} =
+       "InfoHash: " <> pPrint (idInfoHash tInfoDict)
     $$ hang "General" 4 generalInfo
     $$ hang "Tracker" 4 trackers
-    $$ pretty tInfoDict
+    $$ pPrint tInfoDict
    where
     trackers = case tAnnounceList of
         Nothing  -> text (show tAnnounce)
@@ -1037,7 +1037,7 @@ renderURN URN {..}
   = T.intercalate ":" $ "urn" : urnNamespace ++ [urnString]
 
 instance Pretty URN where
-  pretty = text . T.unpack . renderURN
+  pPrint = text . T.unpack . renderURN
 
 instance Show URN where
   showsPrec n = showsPrec n . T.unpack . renderURN
@@ -1260,7 +1260,7 @@ renderMagnetStr :: Magnet -> String
 renderMagnetStr = show . (convert :: Magnet -> URI)
 
 instance Pretty Magnet where
-  pretty = PP.text . renderMagnetStr
+  pPrint = PP.text . renderMagnetStr
 
 instance Show Magnet where
   show = renderMagnetStr