diff --git a/tests/TestUUID.hs b/tests/TestUUID.hs
--- a/tests/TestUUID.hs
+++ b/tests/TestUUID.hs
@@ -12,7 +12,6 @@
 import Test.HUnit
 import Test.QuickCheck hiding ((.&.))
 import System.IO
-import System.Random
 
 
 isValidVersion :: Int -> U.UUID -> Bool
@@ -27,10 +26,7 @@
     -- the UUID random instance ignores bounds
     arbitrary = choose (U.nil, U.nil)
 
--- instance Arbitrary Word8 where
---     arbitrary = (fromIntegral . fst . randomR (0,255::Int)) `fmap` rand
 
-
 test_null :: Test
 test_null = TestList [
     "nil is null"              ~: assertBool "" (U.null U.nil),
@@ -144,7 +140,7 @@
 main :: IO ()
 main = do
     v1s <- replicateM 100 U.nextUUID
-    runTestText (putTextToHandle stderr False) (TestList [
+    _ <- runTestText (putTextToHandle stderr False) (TestList [
         test_null,
         test_nil,
         test_conv,
diff --git a/uuid.cabal b/uuid.cabal
--- a/uuid.cabal
+++ b/uuid.cabal
@@ -1,5 +1,5 @@
 Name: uuid
-Version: 1.2.9
+Version: 1.2.10
 Copyright: (c) 2008-2012 Antoine Latter
 Author: Antoine Latter
 Maintainer: aslatter@gmail.com
@@ -29,7 +29,7 @@
  Build-Depends: base >=3 && < 5,
                 binary >= 0.4 && < 0.7,
                 bytestring >= 0.9 && < 1.1,
-                cryptohash >= 0.7 && < 0.9,
+                cryptohash >= 0.7 && < 0.10,
                 maccatcher >= 1.0 && < 2.2,
                 random >= 1.0.1 && < 1.1,
                 time >= 1.1 && < 1.5