diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-02-27 23:21:43 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-02-27 23:23:41 -0400 |
| commit | 0b141f6949ceb0ecb82d51035aec1a4a2839552b (patch) | |
| tree | 2aae92a7c690b8b1590f3d3638bf5cd99b289aef /Utility/QuickCheck.hs | |
| parent | b112a6844d0e469bf2f2f9157264a53c746e2dd0 (diff) | |
Stop depending on testpack.
Diffstat (limited to 'Utility/QuickCheck.hs')
| -rw-r--r-- | Utility/QuickCheck.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/Utility/QuickCheck.hs b/Utility/QuickCheck.hs index 845ff944f..078b10c8b 100644 --- a/Utility/QuickCheck.hs +++ b/Utility/QuickCheck.hs @@ -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 |