From 07be32728eadd8e6e692a6d9d31a47a286bfb806 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Olivier=20Ch=C3=A9ron?= Date: Sun, 4 Feb 2018 15:27:45 +0100 Subject: [PATCH] Avoid warning with tasty-quickcheck-0.9.2 --- tests/KAT_HMAC.hs | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/tests/KAT_HMAC.hs b/tests/KAT_HMAC.hs index 90b222f..74cc157 100644 --- a/tests/KAT_HMAC.hs +++ b/tests/KAT_HMAC.hs @@ -132,17 +132,17 @@ instance HashAlgorithm a => Arbitrary (MacIncrementalList a) where macIncrementalTests :: [TestTree] macIncrementalTests = - [ testProperties MD5 - , testProperties SHA1 - , testProperties SHA256 - , testProperties SHA3_224 - , testProperties SHA3_256 - , testProperties SHA3_384 - , testProperties SHA3_512 + [ testIncrProperties MD5 + , testIncrProperties SHA1 + , testIncrProperties SHA256 + , testIncrProperties SHA3_224 + , testIncrProperties SHA3_256 + , testIncrProperties SHA3_384 + , testIncrProperties SHA3_512 ] where - --testProperties :: HashAlgorithm a => a -> [Property] - testProperties a = testGroup (show a) + --testIncrProperties :: HashAlgorithm a => a -> [Property] + testIncrProperties a = testGroup (show a) [ testProperty "list-one" (prop_inc0 a) , testProperty "list-multi" (prop_inc1 a) ]