1 files changed, 2 insertions, 2 deletions

diff --git a/examples/MkTorrent.hs b/examples/MkTorrent.hs
index 58e14af1..871343f9 100644
--- a/examples/MkTorrent.hs
+++ b/examples/MkTorrent.hs
@@ -29,7 +29,7 @@ import System.FilePath
 import System.Log
 import System.Log.Logger
 import Text.Read
-import Text.PrettyPrint.Class
+import Text.PrettyPrint.HughesPJClass hiding ((<>),($$))
 
 import Paths_bittorrent (version)
 import Data.Torrent hiding (Magnet (Magnet))
@@ -308,7 +308,7 @@ showInfo = info (helper <*> parser) modifier
 showTorrent :: ShowOpts -> Torrent -> ShowS
 showTorrent ShowOpts {..} torrent
   | infoHashOnly = shows $ idInfoHash (tInfoDict torrent)
-  |   otherwise  = shows $ pretty torrent
+  |   otherwise  = shows $ pPrint torrent
 
 putTorrent :: ShowOpts -> IO ()
 putTorrent opts @ ShowOpts {..} = do