[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 7ef438a28345ff88ee25ad7fd7016dfa84ee7db8
Author: John Goerzen <jgoerzen at complete.org>
Date:   Mon Jan 26 10:22:36 2009 -0600

    Compilation fixes

diff --git a/src/Test/HUnit/Tools.hs b/src/Test/HUnit/Tools.hs
index 7c804c9..87326f3 100644
--- a/src/Test/HUnit/Tools.hs
+++ b/src/Test/HUnit/Tools.hs
@@ -128,9 +128,12 @@ runVerboseTests :: HU.Test -> IO (HU.Counts, Int)
 runVerboseTests tests =
     -- runVerbTestText (HU.putTextToHandle stderr True) $ tests
     runVerbTestText (myPutText stderr True) $ tests
-    where myPutText h b = do r <- HU.putTextToHandle h b
-                             hFlush h
-                             return r
+    where myPutText h b = 
+              case HU.putTextToHandle h b of
+                PutText putf st -> PutText (myputf h putf) st
+          myputf h putf x y z = do r <- putf x y z
+                                   hFlush h
+                                   return r
 
 {- | Label the tests list. -}
 tl :: String -> [Test] -> Test

-- 
haskell-testpack