@@ -12,7 +12,6 @@ import qualified Data.UUID.V5 as U5
1212import Test.HUnit
1313import Test.QuickCheck hiding ((.&.))
1414import System.IO
15−import System.Random
1615
1716
1817isValidVersion :: Int -> U.UUID -> Bool
@@ -27,9 +26,6 @@ instance Arbitrary U.UUID where
2726 -- the UUID random instance ignores bounds
2827 arbitrary = choose (U.nil, U.nil)
2928
30−-- instance Arbitrary Word8 where
31−-- arbitrary = (fromIntegral . fst . randomR (0,255::Int)) `fmap` rand
32−
3329
3430test_null :: Test
3531test_null = TestList [
@@ -144,7 +140,7 @@ prop_readShowRoundTrip = label "Read/Show round-trip" prop
144140main :: IO ()
145141main = do
146142 v1s <- replicateM 100 U.nextUUID
147− runTestText (putTextToHandle stderr False) (TestList [
143+ _ <- runTestText (putTextToHandle stderr False) (TestList [
148144 test_null,
149145 test_nil,
150146 test_conv,