@@ -525,7 +525,7 @@ makeMeta title authors date =
525525-- | Create JSON value for template from a 'Meta' and an association list
526526-- of variables, specified at the command line or in the writer.
527527-- Variables overwrite metadata fields with the same names.
528−metaToJSON :: (Monad m, Functor m)
528+metaToJSON :: Monad m
529529 => ([Block] -> m String) -- ^ Writer for output format
530530 => ([Inline] -> m String) -- ^ Writer for output format
531531 -> Meta -- ^ Metadata
@@ -533,7 +533,7 @@ metaToJSON :: (Monad m, Functor m)
533533metaToJSON blockWriter inlineWriter (Meta metamap) = toJSON
534534 `fmap` Traversable.mapM (metaValueToJSON blockWriter inlineWriter) metamap
535535
536−metaValueToJSON :: (Monad m, Functor m)
536+metaValueToJSON :: Monad m
537537 => ([Block] -> m String)
538538 -> ([Inline] -> m String)
539539 -> MetaValue