diff options
Diffstat (limited to 'tests/Tests/Arbitrary.hs')
| -rw-r--r-- | tests/Tests/Arbitrary.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/tests/Tests/Arbitrary.hs b/tests/Tests/Arbitrary.hs index 825902e4c..af882889f 100644 --- a/tests/Tests/Arbitrary.hs +++ b/tests/Tests/Arbitrary.hs @@ -91,10 +91,8 @@ arbBlock n = frequency $ [ (10, liftM Plain arbitrary) ] instance Arbitrary Pandoc where - arbitrary - = do x1 <- arbitrary - x2 <- arbitrary - return $ normalize (Pandoc x1 x2) + arbitrary = resize 8 $ liftM normalize + $ liftM2 Pandoc arbitrary arbitrary {- instance Arbitrary CitationMode where |