[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 5a23162163daa1e5a682d0a3a11f78f0fcea0e06
Author: John Goerzen <jgoerzen at complete.org>
Date:   Thu Nov 23 05:40:03 2006 +0100

    Small tweak to ProgressMeter

diff --git a/MissingH.cabal b/MissingH.cabal
index ae8b6c2..e14d803 100644
--- a/MissingH.cabal
+++ b/MissingH.cabal
@@ -21,6 +21,7 @@ Exposed-Modules: MissingH.Str, MissingH.IO, MissingH.IO.Binary, MissingH.List,
     MissingH.Str.CSV,
   MissingH.Cmd,
   MissingH.ProgressTracker,
+  MissingH.ProgressMeter,
   MissingH.Quantity,
   MissingH.Map, MissingH.Path, MissingH.Path.NameManip,
     MissingH.Path.FilePath, MissingH.Path.WildMatch, MissingH.Path.Glob,
diff --git a/MissingH/ProgressMeter.hs b/MissingH/ProgressMeter.hs
index 0c59a0b..526b5b4 100644
--- a/MissingH/ProgressMeter.hs
+++ b/MissingH/ProgressMeter.hs
@@ -30,8 +30,8 @@ as a layer atop "MissingH.ProgressTracker".
 
 Written by John Goerzen, jgoerzen\@complete.org -}
 
-module MissingH.ProgressMeter (
-                          )
+module MissingH.ProgressMeter 
+
 
 where
 import MissingH.ProgressTracker
@@ -54,8 +54,11 @@ type ProgressMeter = MVar ProgressMeterR
 {- | Set up a new status bar using defaults:
 
 * The given tracker
+
 * Width 80
+
 * MissingH.Quantity.renderNum binaryOpts 0
+
 -}
 simpleNewMeter :: Progress -> IO ProgressMeter
 simpleNewMeter pt = newMeter pt 80 (renderNum binaryOpts 0)
@@ -73,6 +76,10 @@ newMeter tracker w rfunc =
 setComponents :: ProgressMeter -> [Progress] -> IO ()
 setComponents meter componentlist = modifyMVar_ meter (\m -> return $ m {components = componentlist})
 
+{- | Adjusts the width of this 'ProgressMeter'. -}
+setWidth :: ProgressMeter -> Int -> IO ()
+setWidth meter w = modifyMVar_ meter (\m -> return $ m {width = w})
+
 {- | Like renderMeter, but prints it to the screen instead of returning it. -}
 displayMeter :: ProgressMeter -> IO ()
 displayMeter r = 

-- 
haskell-testpack