summaryrefslogtreecommitdiff
path: root/Utility/QuickCheck.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-10-07 17:11:13 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-10-07 17:11:13 -0400
commit864ac0a7c16f227f1f1f3e5c30ea7f544e04f451 (patch)
tree4209bbe03d6e454eab1324d858e5db3781f57283 /Utility/QuickCheck.hs
parentab18b011b18da821441be71ffafc47a627c1f4b8 (diff)
add schedule to vicfg
Diffstat (limited to 'Utility/QuickCheck.hs')
-rw-r--r--Utility/QuickCheck.hs3
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)