@@ -233,46 +233,3 @@ instance Arbitrary ButtonImages where
233233
234234instance Eq ZonedTime where
235235 ZonedTime t (TimeZone x _ _) == ZonedTime t' (TimeZone y _ _) = t == t' && x == y
236−
237−{-
238−-- Arbitrary instances for common types
239−
240−instance (Eq k, Hashable k, Arbitrary k, Arbitrary v) => Arbitrary (HashMap k v) where
241− arbitrary = HashMap.fromList <$> arbitrary
242−
243−instance (Eq a, Hashable a, Arbitrary a) => Arbitrary (HashSet a) where
244− arbitrary = HashSet.fromList <$> arbitrary
245−
246−instance Arbitrary T.Text where
247− arbitrary = T.pack <$> arbitrary
248−
249−instance Arbitrary TL.Text where
250− arbitrary = TL.pack <$> arbitrary
251−
252−instance Arbitrary Day where
253− arbitrary = liftA3 fromGregorian (fmap ((+ 1) . abs) arbitrary) arbitrary arbitrary
254−
255−instance Arbitrary LocalTime where
256− arbitrary = LocalTime
257− <$> arbitrary
258− <*> liftA3 TimeOfDay (choose (0, 23)) (choose (0, 59)) (fromInteger <$> choose (0, 60))
259−
260−instance Arbitrary ZonedTime where
261− arbitrary = ZonedTime
262− <$> arbitrary
263− <*> liftA3 TimeZone arbitrary arbitrary (vectorOf 3 (elements ['A'..'Z']))
264−
265−instance Arbitrary UTCTime where
266− arbitrary = UTCTime <$> arbitrary <*> fmap fromInteger (choose (0, 86400))
267−
268−#if MIN_VERSION_QuickCheck(2,10,0)
269−-- This instance was removed in QuickCheck 2.10 because of dependencies.
270−-- The instance is available in `quickcheck-instances` package, but that
271−-- introduces a ton of conflicts with the other instances here.
272−
273−instance Arbitrary a => Arbitrary (NonEmpty a) where
274− arbitrary = liftA2 (:|) arbitrary arbitrary
275− shrink (x :| xs) = mapMaybe nonEmpty (shrink (x:xs))
276−#endif
277−
278−-}