diff options
| author | Jonas Smedegaard <dr@jones.dk> | 2011-09-07 16:48:41 +0200 |
|---|---|---|
| committer | Jonas Smedegaard <dr@jones.dk> | 2011-09-07 16:48:41 +0200 |
| commit | 6ac52ff209b172129452cd464d840b3c73c85c01 (patch) | |
| tree | 87a16e7e98aed3beca43aca5f125a990b9a3f4fa /src/Tests/Arbitrary.hs | |
| parent | a242ebaf29539d6a9a4eec97e510b5f8e4b59b30 (diff) | |
Imported Upstream version 1.8.2.1
Diffstat (limited to 'src/Tests/Arbitrary.hs')
| -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)) |