Remove some redundant constraints

This commit is contained in:
Michael Walker 2017-06-11 23:59:47 +01:00
parent 9e7e460ab0
commit 81ff175f6d
2 changed files with 15 additions and 4 deletions

View File

@ -6,6 +6,17 @@ All notable changes to this project will be documented in this file.
This project is versioned according to the [Package Versioning Policy](https://pvp.haskell.org), the This project is versioned according to the [Package Versioning Policy](https://pvp.haskell.org), the
*de facto* standard Haskell versioning scheme. *de facto* standard Haskell versioning scheme.
unreleased
----------
### Test.DejaFu.Refinement
- Removed unnecessary typeclass constraints from `check`, `check'`, `checkFor`, and
`counterExamples`.
---------------------------------------------------------------------------------------------------
0.7.0.1 [2017-06-09] (git tag: [dejafu-0.7.0.1][]) 0.7.0.1 [2017-06-09] (git tag: [dejafu-0.7.0.1][])
------- -------

View File

@ -274,7 +274,7 @@ data FailedProperty o x
-- variable assignments. -- variable assignments.
-- --
-- @since 0.7.0.0 -- @since 0.7.0.0
check :: (Testable p, Listable (X p), Eq (X p), Show (X p), Show (O p)) check :: (Testable p, Listable (X p), Show (X p), Show (O p))
=> p => p
-- ^ The property to check. -- ^ The property to check.
-> IO Bool -> IO Bool
@ -296,7 +296,7 @@ check p = do
-- counterexample. -- counterexample.
-- --
-- @since 0.7.0.0 -- @since 0.7.0.0
check' :: (Testable p, Listable (X p), Eq (X p), Show (X p), Show (O p)) check' :: (Testable p, Listable (X p))
=> p => p
-- ^ The property to check. -- ^ The property to check.
-> IO (Maybe (FailedProperty (O p) (X p))) -> IO (Maybe (FailedProperty (O p) (X p)))
@ -309,7 +309,7 @@ check' = checkFor 10 100
-- @listToMaybe@ composed with @counterExamples@. -- @listToMaybe@ composed with @counterExamples@.
-- --
-- @since 0.7.0.0 -- @since 0.7.0.0
checkFor :: (Testable p, Listable (X p), Eq (X p), Show (X p)) checkFor :: (Testable p, Listable (X p))
=> Int => Int
-- ^ Number of seed values per variable-assignment. -- ^ Number of seed values per variable-assignment.
-> Int -> Int
@ -332,7 +332,7 @@ checkFor sn vn p = do
-- | Find all counterexamples up to a limit. -- | Find all counterexamples up to a limit.
-- --
-- @since 0.7.0.0 -- @since 0.7.0.0
counterExamples :: (Testable p, Listable (X p), Eq (X p)) counterExamples :: (Testable p, Listable (X p))
=> Int => Int
-- ^ Number of seed values per variable-assignment. -- ^ Number of seed values per variable-assignment.
-> Int -> Int