Increase minimum QuickCheck version.
This commit is contained in:
parent
9c74ea84ab
commit
2ca408dc33
3 changed files with 8 additions and 14 deletions
|
@ -1,3 +1,9 @@
|
||||||
|
git-annex (7.20181032) UNRELEASED; urgency=medium
|
||||||
|
|
||||||
|
* Increase minimum QuickCheck version.
|
||||||
|
|
||||||
|
-- Joey Hess <id@joeyh.name> Wed, 31 Oct 2018 15:53:03 -0400
|
||||||
|
|
||||||
git-annex (7.20181031) upstream; urgency=medium
|
git-annex (7.20181031) upstream; urgency=medium
|
||||||
|
|
||||||
* Added v7 repository mode. v6 upgrades automatically to v7, but
|
* Added v7 repository mode. v6 upgrades automatically to v7, but
|
||||||
|
|
|
@ -6,7 +6,7 @@
|
||||||
-}
|
-}
|
||||||
|
|
||||||
{-# OPTIONS_GHC -fno-warn-orphans #-}
|
{-# OPTIONS_GHC -fno-warn-orphans #-}
|
||||||
{-# LANGUAGE TypeSynonymInstances, CPP #-}
|
{-# LANGUAGE TypeSynonymInstances #-}
|
||||||
|
|
||||||
module Utility.QuickCheck
|
module Utility.QuickCheck
|
||||||
( module X
|
( module X
|
||||||
|
@ -16,21 +16,9 @@ module Utility.QuickCheck
|
||||||
import Test.QuickCheck as X
|
import Test.QuickCheck as X
|
||||||
import Data.Time.Clock.POSIX
|
import Data.Time.Clock.POSIX
|
||||||
import System.Posix.Types
|
import System.Posix.Types
|
||||||
#if ! MIN_VERSION_QuickCheck(2,8,2)
|
|
||||||
import qualified Data.Map as M
|
|
||||||
import qualified Data.Set as S
|
|
||||||
#endif
|
|
||||||
import Control.Applicative
|
import Control.Applicative
|
||||||
import Prelude
|
import Prelude
|
||||||
|
|
||||||
#if ! MIN_VERSION_QuickCheck(2,8,2)
|
|
||||||
instance (Arbitrary k, Arbitrary v, Ord k) => Arbitrary (M.Map k v) where
|
|
||||||
arbitrary = M.fromList <$> arbitrary
|
|
||||||
|
|
||||||
instance (Arbitrary v, Ord v) => Arbitrary (S.Set v) where
|
|
||||||
arbitrary = S.fromList <$> arbitrary
|
|
||||||
#endif
|
|
||||||
|
|
||||||
{- Times before the epoch are excluded, and no fraction is included. -}
|
{- Times before the epoch are excluded, and no fraction is included. -}
|
||||||
instance Arbitrary POSIXTime where
|
instance Arbitrary POSIXTime where
|
||||||
arbitrary = fromInteger <$> nonNegative arbitrarySizedIntegral
|
arbitrary = fromInteger <$> nonNegative arbitrarySizedIntegral
|
||||||
|
|
|
@ -356,7 +356,7 @@ Executable git-annex
|
||||||
split,
|
split,
|
||||||
attoparsec,
|
attoparsec,
|
||||||
concurrent-output (>= 1.6),
|
concurrent-output (>= 1.6),
|
||||||
QuickCheck (>= 2.1),
|
QuickCheck (>= 2.8.2),
|
||||||
tasty (>= 0.7),
|
tasty (>= 0.7),
|
||||||
tasty-hunit,
|
tasty-hunit,
|
||||||
tasty-quickcheck,
|
tasty-quickcheck,
|
||||||
|
|
Loading…
Reference in a new issue