[Pkg-haskell-commits] [SCM] haskell-testpack branch, master, updated. debian/1.0.2-1-4-gb0d6b36

[John Goerzen]

The following commit has been merged in the master branch:
commit 269e2f84d554d5ed02fa103ccc5be398da02d740
Author: John Goerzen <jgoerzen at complete.org>
Date:   Thu Nov 23 05:51:57 2006 +0100

    Small tweaks

diff --git a/MissingH/ProgressMeter.hs b/MissingH/ProgressMeter.hs
index 526b5b4..9fb0a75 100644
--- a/MissingH/ProgressMeter.hs
+++ b/MissingH/ProgressMeter.hs
@@ -140,11 +140,11 @@ renderMeter r = withMVar r $ \meter ->
           rendercomponent rfunc pt = withStatus pt $ \pts ->
               do pct <- renderpctpts pts
                  return $ "[" ++ trackerName pts ++ " " ++
-                     rfunc (completedUnits pts) ++ "/" ++
-                     rfunc (totalUnits pts) ++ " " ++ pct ++ "]"
+                     rfunc (completedUnits pts) ++ "B/" ++
+                     rfunc (totalUnits pts) ++ "B " ++ pct ++ "]"
           renderoverall rfunc pt = withStatus pt $ \pts ->
               do etr <- getETR pts
                  speed <- getSpeed pts
-                 return $ rfunc (floor speed) ++ "/s " ++ renderSecs etr
+                 return $ rfunc (floor speed) ++ "B/s " ++ renderSecs etr
 
 

-- 
haskell-testpack