[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 d84a0eeeb14c357133ae177db818a1997dee8514
Author: John Goerzen <jgoerzen at complete.org>
Date:   Thu Nov 23 07:04:13 2006 +0100

    Truncate long lines

diff --git a/MissingH/ProgressMeter.hs b/MissingH/ProgressMeter.hs
index 9fb0a75..25a8841 100644
--- a/MissingH/ProgressMeter.hs
+++ b/MissingH/ProgressMeter.hs
@@ -127,7 +127,7 @@ renderMeter r = withMVar r $ \meter ->
        let leftpart = overallpct ++ componentstr
        let padwidth = (width meter) - 1 - (length leftpart) - (length rightpart)
        if padwidth < 1
-          then return $ leftpart ++ rightpart
+          then return $ take (width meter - 1) $ leftpart ++ rightpart
           else return $ leftpart ++ replicate padwidth ' ' ++ rightpart
        
     where renderpct pt = 

-- 
haskell-testpack