From 31f118f51dc3a8a32c0257209544dfb50542f696 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 5 Sep 2016 14:52:06 -0400 Subject: move Arbitrary instance to new Types.Transfer module Avoid orphan instance warning --- Logs/Transfer.hs | 13 ------------- 1 file changed, 13 deletions(-) (limited to 'Logs') diff --git a/Logs/Transfer.hs b/Logs/Transfer.hs index 37c637af3..65a4e3796 100644 --- a/Logs/Transfer.hs +++ b/Logs/Transfer.hs @@ -5,7 +5,6 @@ - Licensed under the GNU GPL version 3 or higher. -} -{-# OPTIONS_GHC -fno-warn-orphans #-} {-# LANGUAGE CPP #-} module Logs.Transfer where @@ -16,7 +15,6 @@ import Annex.Perms import qualified Git import Utility.Metered import Utility.Percentage -import Utility.QuickCheck import Utility.PID import Annex.LockPool import Logs.TimeStamp @@ -292,17 +290,6 @@ failedTransferDir u direction r = gitAnnexTransferDir r showLcDirection direction filter (/= '/') (fromUUID u) -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 - prop_read_write_transferinfo :: TransferInfo -> Bool prop_read_write_transferinfo info | isJust (transferRemote info) = True -- remote not stored -- cgit v1.2.3