summaryrefslogtreecommitdiff
path: root/src/Tests/Arbitrary.hs
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2011-12-13 14:29:07 -0800
committerJohn MacFarlane <fiddlosopher@gmail.com>2011-12-13 14:29:07 -0800
commit78816497f3d1691daf5c1a43f9bd8b8908f6f312 (patch)
tree7b2fc53ed32939bd3168a5c7d44067c8cfa4f83c /src/Tests/Arbitrary.hs
parentbab0c333a09636eab7c0a6c572fcbd38ee5a1272 (diff)
Use pandoc-types 1.9.*.
Diffstat (limited to 'src/Tests/Arbitrary.hs')
-rw-r--r--src/Tests/Arbitrary.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Tests/Arbitrary.hs b/src/Tests/Arbitrary.hs
index 3ad90020d..986e3e4d5 100644
--- a/src/Tests/Arbitrary.hs
+++ b/src/Tests/Arbitrary.hs
@@ -1,5 +1,5 @@
{-# OPTIONS_GHC -fno-warn-orphans #-}
-{-# LANGUAGE TypeSynonymInstances, FlexibleInstances #-}
+{-# LANGUAGE TypeSynonymInstances, FlexibleInstances, ScopedTypeVariables #-}
-- provides Arbitrary instance for Pandoc types
module Tests.Arbitrary ()
where
@@ -22,10 +22,10 @@ arbAttr = do
return (id',classes,keyvals)
instance Arbitrary Inlines where
- arbitrary = liftM fromList arbitrary
+ arbitrary = liftM (fromList :: [Inline] -> Inlines) arbitrary
instance Arbitrary Blocks where
- arbitrary = liftM fromList arbitrary
+ arbitrary = liftM (fromList :: [Block] -> Blocks) arbitrary
instance Arbitrary Inline where
arbitrary = resize 3 $ arbInline 2