diff options
Diffstat (limited to 'Utility')
| -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 |