move Arbitrary instance to new Types.Transfer module

Avoid orphan instance warning

1 files changed, 11 insertions, 0 deletions

diff --git a/Types/Transfer.hs b/Types/Transfer.hs
index 528d1d5cb..905b29ea2 100644
--- a/Types/Transfer.hs
+++ b/Types/Transfer.hs
@@ -9,6 +9,7 @@ module Types.Transfer where
 
 import Types
 import Utility.PID
+import Utility.QuickCheck
 
 import Data.Time.Clock.POSIX
 import Control.Concurrent
@@ -45,3 +46,13 @@ stubTransferInfo = TransferInfo Nothing Nothing Nothing Nothing Nothing Nothing
 data Direction = Upload | Download
 	deriving (Eq, Ord, Read, Show)
 
+instance Arbitrary TransferInfo where
+	arbitrary = TransferInfo
+		<$> arbitrary
+		<*> arbitrary
+		<*> pure Nothing -- cannot generate a ThreadID
+		<*> pure Nothing -- remote not needed
+		<*> arbitrary
+		-- associated file cannot be empty (but can be Nothing)
+		<*> arbitrary `suchThat` (/= Just "")
+		<*> arbitrary