From adde3d5d007ff4e7d148001332ac618bb84e343d Mon Sep 17 00:00:00 2001 From: Albert Krewinkel Date: Fri, 26 Feb 2021 11:34:29 +0100 Subject: [PATCH] Fix typo in documentation of shrinkMap --- src/Test/QuickCheck/Arbitrary.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Test/QuickCheck/Arbitrary.hs b/src/Test/QuickCheck/Arbitrary.hs index 27d6fb69..f83380b6 100644 --- a/src/Test/QuickCheck/Arbitrary.hs +++ b/src/Test/QuickCheck/Arbitrary.hs @@ -1119,7 +1119,7 @@ shrinkNothing _ = [] -- shrinkOrderedList :: (Ord a, Arbitrary a) => [a] -> [[a]] -- shrinkOrderedList = shrinkMap sort id -- --- shrinkSet :: (Ord a, Arbitrary a) => Set a -> Set [a] +-- shrinkSet :: (Ord a, Arbitrary a) => Set a -> [Set a] -- shrinkSet = shrinkMap fromList toList -- @ shrinkMap :: Arbitrary a => (a -> b) -> (b -> a) -> b -> [b]