@@ -1,4 +1,5 @@
11{-# LANGUAGE ViewPatterns #-}
2+
23import qualified Data.ByteString.Lazy as BL
34import qualified Data.ByteString.Lazy.Char8 as BL8
45import qualified Data.ByteString.Char8 as BC8
@@ -9,11 +10,11 @@ import qualified Data.UUID.Types as U
910import Foreign (alloca, peek, poke)
1011import System.IO.Unsafe (unsafePerformIO)
1112
12−import Test.QuickCheck hiding ((.&.))
13+import Test.QuickCheck ( Arbitrary(arbitrary), choose )
1314
1415import Test.Tasty ( defaultMain, TestTree, testGroup )
15−import Test.Tasty.HUnit
16−import Test.Tasty.QuickCheck
16+import Test.Tasty.HUnit ( assertBool, (@?=), (@=?), testCase )
17+import Test.Tasty.QuickCheck ( testProperty )
1718
1819
1920instance Arbitrary U.UUID where