[Pkg-haskell-commits] [SCM] haskell-testpack branch, master, updated. debian/1.0.2-1-38-gf16a0a9

[John Goerzen]

The following commit has been merged in the master branch:
commit 3c544a371a476ba20ca236858a2c3b0e287bcd8c
Author: John Goerzen <jgoerzen at complete.org>
Date:   Fri Apr 23 18:22:53 2010 -0500

    More display tweak

diff --git a/src/Test/HUnit/Tools.hs b/src/Test/HUnit/Tools.hs
index 98e5440..ca72e47 100644
--- a/src/Test/HUnit/Tools.hs
+++ b/src/Test/HUnit/Tools.hs
@@ -191,8 +191,7 @@ localquickCheckWithResult args p =
 
     doneTesting :: State -> (StdGen -> Int -> Prop) -> IO Result
     doneTesting st f =
-      do success st
-         if expectedFailure st then
+      do if expectedFailure st then
            return Success{ labels = summary st }
            else
            return NoExpectedFailure{ labels = summary st }
@@ -200,7 +199,6 @@ localquickCheckWithResult args p =
     giveUp :: State -> (StdGen -> Int -> Prop) -> IO Result
     giveUp st f =
       do
-        success st
         return GaveUp{ numTests = numSuccessTests st
                      , labels   = summary st
                      }

-- 
haskell-testpack