diff options
Diffstat (limited to 'Property.hs')
| -rw-r--r-- | Property.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/Property.hs b/Property.hs index 4055ab2a..84a57a1b 100644 --- a/Property.hs +++ b/Property.hs @@ -83,6 +83,9 @@ property `onChange` hook = Property (propertyDesc property) $ do requires :: Property -> Property -> Property x `requires` y = combineProperties (propertyDesc x) [y, x] +describe :: Property -> Desc -> Property +describe p d = p { propertyDesc = d } + {- Makes a Property only be performed when a test succeeds. -} check :: IO Bool -> Property -> Property check c property = Property (propertyDesc property) $ ifM c |