[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 38391d92bf00567e5c1b6ff1dcb4b72080cdc739
Author: John Goerzen <jgoerzen at complete.org>
Date:   Tue Oct 10 21:02:11 2006 +0100

    Work on the progress support

diff --git a/MissingH/ProgressTracker.hs b/MissingH/ProgressTracker.hs
index cbc59c7..f62953e 100644
--- a/MissingH/ProgressTracker.hs
+++ b/MissingH/ProgressTracker.hs
@@ -31,15 +31,26 @@ Written by John Goerzen, jgoerzen\@complete.org
 
 -}
 
-module MissingH.ProgressTracer (
+module MissingH.ProgressTracker (ProgressRecord(..),
                                )
 
 where
+import Control.Concurrent.MVar
 
-data ProgressInfo = 
-    ProgressInfo {completedUnits :: Integer,
-                  totalUnits :: Integer,
-                  startTime :: Integer,
-                  trackerName :: String}
-    deriving (Eq, Show, Read)
+type ProgressTimeSource = IO Integer
+type ProgressCallback = ProgressRecord -> IO ()
 
+{- | The main progress status unit. -}
+data ProgressRecord = 
+     ProgressRecord {completedUnits :: Integer,
+                     totalUnits :: Integer,
+                     startTime :: Integer,
+                     trackerName :: String,
+                     timeSource :: ProgressTimeSource,
+                     parents :: [Progress],
+                     callbacks :: [ProgressCallback]}
+
+type Progress = MVar ProgressRecord
+
+-- class ProgressTypes where
+--    getStatus 
\ No newline at end of file

-- 
haskell-testpack