aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2013-06-25 17:41:15 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2013-06-25 17:41:15 -0700
commitf34232c934b82da418ef35ac01a6978df284a117 (patch)
tree54f0c6c87dd0a254876c02f289616ff864481064 /src/Text/Pandoc
parentcdf356a331714c15b122927f1cd75253db5182bf (diff)
downloadpandoc-f34232c934b82da418ef35ac01a6978df284a117.tar.gz
Removed 'Functor' constraint.
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Shared.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs
index 9c62db86e..f9a4f38e3 100644
--- a/src/Text/Pandoc/Shared.hs
+++ b/src/Text/Pandoc/Shared.hs
@@ -525,7 +525,7 @@ makeMeta title authors date =
-- | Create JSON value for template from a 'Meta' and an association list
-- of variables, specified at the command line or in the writer.
-- Variables overwrite metadata fields with the same names.
-metaToJSON :: (Monad m, Functor m)
+metaToJSON :: Monad m
=> ([Block] -> m String) -- ^ Writer for output format
=> ([Inline] -> m String) -- ^ Writer for output format
-> Meta -- ^ Metadata
@@ -533,7 +533,7 @@ metaToJSON :: (Monad m, Functor m)
metaToJSON blockWriter inlineWriter (Meta metamap) = toJSON
`fmap` Traversable.mapM (metaValueToJSON blockWriter inlineWriter) metamap
-metaValueToJSON :: (Monad m, Functor m)
+metaValueToJSON :: Monad m
=> ([Block] -> m String)
-> ([Inline] -> m String)
-> MetaValue