1 files changed, 5 insertions, 0 deletions

diff --git a/src/Data/Torrent/Magnet.hs b/src/Data/Torrent/Magnet.hs
index 01f28a76..791537b1 100644
--- a/src/Data/Torrent/Magnet.hs
+++ b/src/Data/Torrent/Magnet.hs
@@ -43,6 +43,8 @@ import Data.Text as T
 import Data.Text.Encoding as T
 import Network.URI
 import Text.Read
+import Text.PrettyPrint as PP
+import Text.PrettyPrint.Class
 
 import Data.Torrent
 import Data.Torrent.InfoHash
@@ -148,6 +150,9 @@ instance URLEncode Magnet where
   urlEncode = toQuery
   {-# INLINE urlEncode #-}
 
+instance Pretty Magnet where
+  pretty = PP.text . renderMagnet
+
 -- | Set exact topic only, other params are empty.
 nullMagnet :: InfoHash -> Magnet
 nullMagnet u = Magnet