diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-10-07 17:11:13 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-10-07 17:11:13 -0400 |
| commit | 864ac0a7c16f227f1f1f3e5c30ea7f544e04f451 (patch) | |
| tree | 4209bbe03d6e454eab1324d858e5db3781f57283 /Utility/QuickCheck.hs | |
| parent | ab18b011b18da821441be71ffafc47a627c1f4b8 (diff) | |
add schedule to vicfg
Diffstat (limited to 'Utility/QuickCheck.hs')
| -rw-r--r-- | Utility/QuickCheck.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/Utility/QuickCheck.hs b/Utility/QuickCheck.hs index 078b10c8b..82af09f3d 100644 --- a/Utility/QuickCheck.hs +++ b/Utility/QuickCheck.hs @@ -43,3 +43,6 @@ instance Arbitrary FileOffset where nonNegative :: (Num a, Ord a) => Gen a -> Gen a nonNegative g = g `suchThat` (>= 0) + +positive :: (Num a, Ord a) => Gen a -> Gen a +positive g = g `suchThat` (> 0) |