From 8bff89d4dd6354288c8b01395bcf6103c6edfe19 Mon Sep 17 00:00:00 2001 From: Sam Truzjan Date: Tue, 17 Dec 2013 16:10:38 +0400 Subject: Add the nodes field to torrent file --- tests/Data/Torrent/MetainfoSpec.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'tests/Data/Torrent') diff --git a/tests/Data/Torrent/MetainfoSpec.hs b/tests/Data/Torrent/MetainfoSpec.hs index b5716e07..d2e0e52e 100644 --- a/tests/Data/Torrent/MetainfoSpec.hs +++ b/tests/Data/Torrent/MetainfoSpec.hs @@ -17,6 +17,7 @@ import Data.Torrent.Piece import Data.Torrent.Layout import Data.Torrent import Data.Torrent.LayoutSpec () +import Network.BitTorrent.Core.NodeSpec () {----------------------------------------------------------------------- -- Common @@ -57,6 +58,7 @@ instance Arbitrary Torrent where arbitrary = Torrent <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> pico <*> arbitrary <*> arbitrary + <*> arbitrary <*> arbitrary <*> pure Nothing <*> arbitrary {----------------------------------------------------------------------- -- cgit v1.2.3