Skip to content

Commit

Permalink
Remove typeclass constraints from functionElements
Browse files Browse the repository at this point in the history
  • Loading branch information
nick8325 committed Jun 29, 2021
1 parent 9e64cb5 commit f14544a
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/Test/QuickCheck/Function.hs
Original file line number Diff line number Diff line change
Expand Up @@ -178,7 +178,7 @@ functionBoundedEnum :: (Eq a, Bounded a, Enum a) => (a->b) -> (a:->b)
functionBoundedEnum = functionElements [minBound..maxBound]

-- | Provides a 'Function' instance for small finite types.
functionElements :: (Eq a, Bounded a, Enum a) => [a] -> (a->b) -> (a:->b)
functionElements :: Eq a => [a] -> (a->b) -> (a:->b)
functionElements xs f = Table [(x,f x) | x <- xs]

-- | Provides a 'Function' instance for types with 'RealFrac'.
Expand Down

0 comments on commit f14544a

Please sign in to comment.