Skip to content

Commit 12581ba

Browse files
jeesus
1 parent 81fcefe commit 12581ba

File tree

1 file changed

+3
-3
lines changed

1 file changed

+3
-3
lines changed

docs/Manual.md

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -311,10 +311,10 @@ Consider a system of 4 variables _w,x,y,z_ where we want to test the QuickCheck
311311
We might write a QuickCheck property like this
312312

313313
```haskell
314-
prop1 :: Gen Property
314+
prop1 :: Property
315315
prop1 = do
316-
(w,x,y,z) <- arbitrary :: Gen (Int,Int,Int,Int)
317-
pure $ (w < x && x < y && y < z) ==> property (w < z)
316+
forAll arbitrary $ \(w,x,y,z) :: (Int,Int,Int,Int) ->
317+
(w < x && x < y && y < z) ==> property (w < z)
318318
```
319319

320320
The problem with this is that the probability that the condition `(w < x && x < y && y < z)` is True, for random

0 commit comments

Comments
 (0)