1 files changed, 8 insertions, 0 deletions

diff --git a/src/Data/Torrent/Progress.hs b/src/Data/Torrent/Progress.hs
index 18a9cd7d..d0aa75c6 100644
--- a/src/Data/Torrent/Progress.hs
+++ b/src/Data/Torrent/Progress.hs
@@ -43,6 +43,8 @@ import Data.Serialize as S
 import Data.Ratio
 import Data.URLEncoded
 import Data.Word
+import Text.PrettyPrint as PP
+import Text.PrettyPrint.Class
 
 
 -- | Progress data is considered as dynamic within one client
@@ -100,6 +102,12 @@ instance URLEncode Progress where
     ]
     where s :: String -> String;  s = id; {-# INLINE s #-}
 
+instance Pretty Progress where
+  pretty Progress {..} =
+    "/\\"  <+> PP.text (show _uploaded)   $$
+    "\\/"  <+> PP.text (show _downloaded) $$
+    "left" <+> PP.text (show _left)
+
 -- | Initial progress is used when there are no session before.
 --
 -- Please note that tracker might penalize client some way if the do