[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 5386f02bf6f777eb36fcdb04deec7c6abb0a8ff4
Author: John Goerzen <jgoerzen at complete.org>
Date:   Fri Nov 24 12:25:49 2006 +0100

    Slight display tweaks

diff --git a/MissingH/ProgressMeter.hs b/MissingH/ProgressMeter.hs
index 6bb6645..0ea9fab 100644
--- a/MissingH/ProgressMeter.hs
+++ b/MissingH/ProgressMeter.hs
@@ -173,7 +173,7 @@ renderMeterR meter =
                             [] -> ""
                             x -> x ++ " "
        rightpart <- renderoverall (renderer meter) (masterP meter)
-       let leftpart = overallpct ++ componentstr
+       let leftpart = overallpct ++ " " ++ componentstr
        let padwidth = (width meter) - 1 - (length leftpart) - (length rightpart)
        if padwidth < 1
           then return $ take (width meter - 1) $ leftpart ++ rightpart
@@ -183,8 +183,8 @@ renderMeterR meter =
               withStatus pt renderpctpts
           renderpctpts pts = 
                   if (totalUnits pts == 0)
-                     then return "0% "
-                     else return $ show (((completedUnits pts) * 100) `div` (totalUnits pts)) ++ "% "
+                     then return "0%"
+                     else return $ show (((completedUnits pts) * 100) `div` (totalUnits pts)) ++ "%"
           rendercomponent :: (Integer -> String) -> Progress -> IO String
           rendercomponent rfunc pt = withStatus pt $ \pts ->
               do pct <- renderpctpts pts

-- 
haskell-testpack