@@ -15,7 +15,7 @@ import qualified Data.UUID.V5 as U5
1515import Test.QuickCheck ( Arbitrary(arbitrary), choose )
1616import Test.Tasty ( TestTree, testGroup, defaultMain )
1717import Test.Tasty.HUnit
18− ( Assertable(assert), assertBool, (@?=), testCase )
18+ ( assertBool, (@?=), testCase )
1919import Test.Tasty.QuickCheck ( testProperty )
2020
2121type Test = TestTree
@@ -47,7 +47,7 @@ test_v1 v1s = testGroup "version 1" [
4747 where testUUID :: (U.UUID -> Bool) -> Maybe U.UUID -> Test
4848 testUUID p u =
4949 testCase (show u) $
50− assert $ maybe False p u
50+ assertBool "" $ maybe False p u
5151
5252test_v3 :: Test
5353test_v3 =