@@ -76,7 +76,7 @@ metaToJSON opts blockWriter inlineWriter meta
7676
7777-- | Like 'metaToJSON', but does not include variables and is
7878-- not sensitive to 'writerTemplate'.
79−metaToJSON' :: (Monad m, ToJSON a)
79+metaToJSON' :: (Functor m, Monad m, ToJSON a)
8080 => ([Block] -> m a)
8181 -> ([Inline] -> m a)
8282 -> Meta
@@ -99,7 +99,7 @@ addVariablesToJSON opts metadata =
9999 where combineMetadata (Object o1) (Object o2) = Object $ H.union o1 o2
100100 combineMetadata x _ = x
101101
102−metaValueToJSON :: (Monad m, ToJSON a)
102+metaValueToJSON :: (Functor m, Monad m, ToJSON a)
103103 => ([Block] -> m a)
104104 -> ([Inline] -> m a)
105105 -> MetaValue