[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 e67242ecc188dc1a08d614d4a1a56e00c6f0508f
Author: John Goerzen <jgoerzen at complete.org>
Date:   Fri Oct 13 23:08:55 2006 +0100

    Actually do the parent calls

diff --git a/MissingH/ProgressTracker.hs b/MissingH/ProgressTracker.hs
index 6ff3bae..9ee2754 100644
--- a/MissingH/ProgressTracker.hs
+++ b/MissingH/ProgressTracker.hs
@@ -385,6 +385,16 @@ modStatus (Progress mp) func =
               do let newpr = oldpr {status = func (status oldpr)}
                  mapM_ (\x -> x (status oldpr) (status newpr))
                            (callbacks oldpr)
+
+                 -- Kick it up to the parents.
+                 case (completedUnits . status $ newpr) -
+                      (completedUnits . status $ oldpr) of
+                   0 -> return ()
+                   x -> callParents newpr (\y -> incrP' y x)
+                 case (totalUnits . status $ newpr) -
+                      (totalUnits . status $ oldpr) of
+                   0 -> return ()
+                   x -> callParents newpr (\y -> incrTotal y x)
                  return newpr
 
 callParents :: ProgressRecord -> (Progress -> IO ()) -> IO ()

-- 
haskell-testpack