diff options
| -rw-r--r-- | src/Tests/Arbitrary.hs | 4 |
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)) |