summaryrefslogtreecommitdiff
path: root/Utility/QuickCheck.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-02-27 23:21:43 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-02-27 23:23:41 -0400
commit0b141f6949ceb0ecb82d51035aec1a4a2839552b (patch)
tree2aae92a7c690b8b1590f3d3638bf5cd99b289aef /Utility/QuickCheck.hs
parentb112a6844d0e469bf2f2f9157264a53c746e2dd0 (diff)
Stop depending on testpack.
Diffstat (limited to 'Utility/QuickCheck.hs')
-rw-r--r--Utility/QuickCheck.hs5
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