@@ -28,7 +28,7 @@ instance Arbitrary Blocks where
2828 arbitrary = liftM fromList arbitrary
2929
3030instance Arbitrary Inline where
31− arbitrary = resize 3 $ arbInline 3
31+ arbitrary = resize 3 $ arbInline 2
3232
3333arbInlines :: Int -> Gen [Inline]
3434arbInlines n = listOf1 (arbInline n) `suchThat` (not . startsWithSpace)
@@ -72,7 +72,7 @@ arbInline n = frequency $ [ (60, liftM Str realString)
7272 ]
7373
7474instance Arbitrary Block where
75− arbitrary = resize 3 $ arbBlock 3
75+ arbitrary = resize 3 $ arbBlock 2
7676
7777arbBlock :: Int -> Gen Block
7878arbBlock n = frequency $ [ (10, liftM Plain $ arbInlines (n-1))