New storage

1 files changed, 1 insertions, 13 deletions

diff --git a/tests/Data/Torrent/MetainfoSpec.hs b/tests/Data/Torrent/MetainfoSpec.hs
index 636bb6b1..b5716e07 100644
--- a/tests/Data/Torrent/MetainfoSpec.hs
+++ b/tests/Data/Torrent/MetainfoSpec.hs
@@ -16,7 +16,7 @@ import Test.QuickCheck.Instances ()
 import Data.Torrent.Piece
 import Data.Torrent.Layout
 import Data.Torrent
-
+import Data.Torrent.LayoutSpec ()
 
 {-----------------------------------------------------------------------
 --  Common
@@ -38,18 +38,6 @@ instance Arbitrary URI where
 --  Instances
 -----------------------------------------------------------------------}
 
-instance Arbitrary FileSize where
-  arbitrary = fromIntegral <$> (arbitrary :: Gen Int)
-
-instance Arbitrary a => Arbitrary (FileInfo a) where
-  arbitrary = FileInfo <$> arbitrary <*> arbitrary <*> arbitrary
-
-instance Arbitrary LayoutInfo where
-  arbitrary = oneof
-    [ SingleFile <$> arbitrary
-    , MultiFile  <$> arbitrary <*> arbitrary
-    ]
-
 instance Arbitrary HashArray where
   arbitrary = HashArray <$> arbitrary