From d6a0442a56d7b977d5f1d1d162517c9086c413eb Mon Sep 17 00:00:00 2001
From: Sam Truzjan <pxqr.sta@gmail.com>
Date: Tue, 3 Dec 2013 16:15:32 +0400
Subject: New storage

---
 tests/Data/Torrent/MetainfoSpec.hs | 14 +-------------
 1 file changed, 1 insertion(+), 13 deletions(-)

(limited to 'tests/Data/Torrent/MetainfoSpec.hs')

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
 
-- 
cgit v1.2.3