@@ -13,8 +13,10 @@ import Text.Pandoc.Builder
1313realString :: Gen String
1414realString = resize 8 arbitrary -- elements wordlist
1515
16+{-
1617wordlist :: [String]
1718wordlist = ["foo","Bar","baz","\\","/",":","\"","'","féé"]
19+-}
1820
1921instance Arbitrary Inlines where
2022 arbitrary = liftM fromList arbitrary
@@ -80,9 +82,9 @@ arbBlock n = frequency $ [ (10, liftM Plain arbitrary)
8082 ] ++ [x | x <- nesters, n > 0]
8183 where nesters = [ (5, liftM BlockQuote $ listOf $ arbBlock (n-1))
8284 , (5, liftM2 OrderedList arbitrary
83− $ (listOf $ listOf $ arbBlock (n-1)))
84− , (5, liftM BulletList $ (listOf $ listOf $ arbBlock (n-1)))
85− , (5, do x1 <- listOf $ listOf $ listOf $ arbBlock (n-1)
85+ $ (listOf1 $ listOf1 $ arbBlock (n-1)))
86+ , (5, liftM BulletList $ (listOf1 $ listOf1 $ arbBlock (n-1)))
87+ , (5, do x1 <- listOf $ listOf1 $ listOf1 $ arbBlock (n-1)
8688 x2 <- arbitrary
8789 return (DefinitionList $ zip x2 x1))
8890 , (2, do rs <- choose (1 :: Int, 4)