summaryrefslogtreecommitdiff
path: root/src/Tests
diff options
context:
space:
mode:
authorJonas Smedegaard <dr@jones.dk>2011-09-07 16:48:41 +0200
committerJonas Smedegaard <dr@jones.dk>2011-09-07 16:48:41 +0200
commit6ac52ff209b172129452cd464d840b3c73c85c01 (patch)
tree87a16e7e98aed3beca43aca5f125a990b9a3f4fa /src/Tests
parenta242ebaf29539d6a9a4eec97e510b5f8e4b59b30 (diff)
Imported Upstream version 1.8.2.1
Diffstat (limited to 'src/Tests')
-rw-r--r--src/Tests/Arbitrary.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Tests/Arbitrary.hs b/src/Tests/Arbitrary.hs
index 39491431d..f5a44ceab 100644
--- a/src/Tests/Arbitrary.hs
+++ b/src/Tests/Arbitrary.hs
@@ -28,7 +28,7 @@ instance Arbitrary Blocks where
arbitrary = liftM fromList arbitrary
instance Arbitrary Inline where
- arbitrary = resize 3 $ arbInline 3
+ arbitrary = resize 3 $ arbInline 2
arbInlines :: Int -> Gen [Inline]
arbInlines n = listOf1 (arbInline n) `suchThat` (not . startsWithSpace)
@@ -72,7 +72,7 @@ arbInline n = frequency $ [ (60, liftM Str realString)
]
instance Arbitrary Block where
- arbitrary = resize 3 $ arbBlock 3
+ arbitrary = resize 3 $ arbBlock 2
arbBlock :: Int -> Gen Block
arbBlock n = frequency $ [ (10, liftM Plain $ arbInlines (n-1))