From f34232c934b82da418ef35ac01a6978df284a117 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Tue, 25 Jun 2013 17:41:15 -0700
Subject: Removed 'Functor' constraint.

---
 src/Text/Pandoc/Shared.hs | 4 ++--
 1 file 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
-- 
cgit v1.2.3