[commit: packages/bytestring] ghc-head: Unbreak the testsuite (341a4c1)

[git at git.haskell.org]

Repository : ssh://git at git.haskell.org/bytestring

On branch  : ghc-head
Link       : http://git.haskell.org/packages/bytestring.git/commitdiff/341a4c1839c757065a32805c888cdba67d2d6e19

>---------------------------------------------------------------

commit 341a4c1839c757065a32805c888cdba67d2d6e19
Author: Duncan Coutts <duncan at community.haskell.org>
Date:   Tue Sep 17 12:30:11 2013 +0100

    Unbreak the testsuite


>---------------------------------------------------------------

341a4c1839c757065a32805c888cdba67d2d6e19
 tests/TestFramework.hs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/TestFramework.hs b/tests/TestFramework.hs
index f8da491..83df0d2 100644
--- a/tests/TestFramework.hs
+++ b/tests/TestFramework.hs
@@ -48,7 +48,7 @@ testProperty name p = [(name, runQcTest)]
                    }
 
 assertBool :: String -> Bool -> Bool
-assertBool = const
+assertBool _ = id
 
 testCase :: String -> Bool -> Test
 testCase name tst = [(name, runPlainTest)]