diff options
Diffstat (limited to 'Logs')
| -rw-r--r-- | Logs/Transfer.hs | 13 |
1 files changed, 0 insertions, 13 deletions
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 |