diff options
author | joe <joe@jerkface.net> | 2015-03-29 01:06:34 -0400 |
---|---|---|
committer | joe <joe@jerkface.net> | 2015-03-29 01:06:34 -0400 |
commit | c88a76cb1c6ee7e54628b78a56f1a25415a39c30 (patch) | |
tree | 567ee2accc815e3f2a71c8f8434eefef82e60ef7 /src/Network/BitTorrent/Internal/Progress.hs | |
parent | e569586521be76e0f02137e01af9375d327d461c (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.hs | 4 |
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 | |||
45 | import Data.Word | 45 | import Data.Word |
46 | import Network.HTTP.Types.QueryLike | 46 | import Network.HTTP.Types.QueryLike |
47 | import Text.PrettyPrint as PP | 47 | import Text.PrettyPrint as PP |
48 | import Text.PrettyPrint.Class | 48 | import 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 | ||
106 | instance Pretty Progress where | 106 | instance 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) |