diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2013-06-25 17:41:15 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2013-06-25 17:41:15 -0700 |
| commit | f34232c934b82da418ef35ac01a6978df284a117 (patch) | |
| tree | 54f0c6c87dd0a254876c02f289616ff864481064 | |
| parent | cdf356a331714c15b122927f1cd75253db5182bf (diff) | |
Removed 'Functor' constraint.
| -rw-r--r-- | src/Text/Pandoc/Shared.hs | 4 |
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 |