We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 6228183 commit 7e6acbfCopy full SHA for 7e6acbf
src/Constrained/Base.hs
@@ -488,7 +488,10 @@ class
488
-- | Shrink an `a` with the aide of a `TypeSpec`
489
shrinkWithTypeSpec :: TypeSpec a -> a -> [a]
490
491
- -- | Try to make an `a` conform to `TypeSpec` with minimal changes
+ -- | Try to make an `a` conform to `TypeSpec` with minimal changes. When
492
+ -- `fixupWithSpec ts a` returns `Just a'`, it should be the case that
493
+ -- `conformsTo a' ts`. There are no constraints in the `Nothing` case. A
494
+ -- non-trivial implementation of this function is important for shrinking.
495
fixupWithTypeSpec :: TypeSpec a -> a -> Maybe a
496
497
-- | Convert a spec to predicates:
0 commit comments