1 files changed, 0 insertions, 13 deletions
diff --git a/Key.hs b/Key.hs
index f52aea31b..e1d8ee34d 100644
--- a/Key.hs
+++ b/Key.hs
@@ -13,7 +13,6 @@ module Key (
 	prop_idempotent_key_read_show
 ) where
 
-import Test.QuickCheck
 import Utility
 import System.Posix.Types
 
@@ -71,17 +70,5 @@ readKey s = if key == Just stubKey then Nothing else key
 		addfield 'm' k v = Just k { keyMtime = readMaybe v }
 		addfield _ _ _ = Nothing
 
--- for quickcheck
-instance Arbitrary Key where
-	arbitrary = do
-		n <- arbitrary
-		b <- elements ['A'..'Z']
-		return $ Key {
-			keyName = n,
-			keyBackendName = [b],
-			keySize = Nothing,
-			keyMtime = Nothing
-		}
-
 prop_idempotent_key_read_show :: Key -> Bool
 prop_idempotent_key_read_show k = Just k == (readKey $ show k)