@@ -1,3 +1,4 @@
1{-# LANGUAGE DefaultSignatures #-}
2{-# LANGUAGE DefaultSignatures #-}
2{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE FlexibleContexts #-}
4{-# LANGUAGE FlexibleContexts #-}
@@ -585,6 +586,11 @@ noDuplicates xs = nub xs == xs
585instance Arbitrary NominalDiffTime where
586instance Arbitrary NominalDiffTime where
586 arbitrary = fromInteger <$> arbitrary
587 arbitrary = fromInteger <$> arbitrary
589+#if !MIN_VERSION_QuickCheck(2,8,0)
590+instance (Arbitrary k, Ord k, Arbitrary v) => Arbitrary (M.Map k v) where
591+ arbitrary = M.fromList <$> arbitrary
588instance Arbitrary Text where
594instance Arbitrary Text where
589 arbitrary = T.pack <$> arbitrary
595 arbitrary = T.pack <$> arbitrary