summaryrefslogtreecommitdiff
path: root/src/Network/BitTorrent/Internal/Progress.hs
diff options
context:
space:
mode:
authorjoe <joe@jerkface.net>2015-03-29 01:06:34 -0400
committerjoe <joe@jerkface.net>2015-03-29 01:06:34 -0400
commitc88a76cb1c6ee7e54628b78a56f1a25415a39c30 (patch)
tree567ee2accc815e3f2a71c8f8434eefef82e60ef7 /src/Network/BitTorrent/Internal/Progress.hs
parente569586521be76e0f02137e01af9375d327d461c (diff)
Updates to build against newer libraries:
* prettyclass instead of deprecated pretty-class * use pPrint instead of pretty * backported to iproute-1.2.11 (convenient for debian jessie)
Diffstat (limited to 'src/Network/BitTorrent/Internal/Progress.hs')
-rw-r--r--src/Network/BitTorrent/Internal/Progress.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Network/BitTorrent/Internal/Progress.hs b/src/Network/BitTorrent/Internal/Progress.hs
index 9aff9935..6ac889e2 100644
--- a/src/Network/BitTorrent/Internal/Progress.hs
+++ b/src/Network/BitTorrent/Internal/Progress.hs
@@ -45,7 +45,7 @@ import Data.Ratio
45import Data.Word 45import Data.Word
46import Network.HTTP.Types.QueryLike 46import Network.HTTP.Types.QueryLike
47import Text.PrettyPrint as PP 47import Text.PrettyPrint as PP
48import Text.PrettyPrint.Class 48import Text.PrettyPrint.HughesPJClass hiding ((<>),($$))
49 49
50 50
51-- | Progress data is considered as dynamic within one client 51-- | Progress data is considered as dynamic within one client
@@ -104,7 +104,7 @@ instance QueryLike Progress where
104 ] 104 ]
105 105
106instance Pretty Progress where 106instance Pretty Progress where
107 pretty Progress {..} = 107 pPrint Progress {..} =
108 "/\\" <+> PP.text (show _uploaded) $$ 108 "/\\" <+> PP.text (show _uploaded) $$
109 "\\/" <+> PP.text (show _downloaded) $$ 109 "\\/" <+> PP.text (show _downloaded) $$
110 "left" <+> PP.text (show _left) 110 "left" <+> PP.text (show _left)