mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

Stop depending on testpack.

Browse source
This commit is contained in:
Joey Hess 2013-02-27 23:21:43 -04:00
parent 2c6941a08e
commit 0151f42cdf
7 changed files with 52 additions and 36 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Utility/QuickCheck.hs
View file

@ -16,6 +16,11 @@ module Utility.QuickCheck
import Test.QuickCheck as X
import Data.Time.Clock.POSIX
import System.Posix.Types
import qualified Data.Map as M
import Control.Applicative
instance (Arbitrary k, Arbitrary v, Eq k, Ord k) => Arbitrary (M.Map k v) where
arbitrary = M.fromList <$> arbitrary
{- Times before the epoch are excluded. -}
instance Arbitrary POSIXTime where