@@ -76,7 +76,7 @@ metaToJSON opts blockWriter inlineWriter meta
77-- | Like 'metaToJSON', but does not include variables and is
77-- | Like 'metaToJSON', but does not include variables and is
78-- not sensitive to 'writerTemplate'.
78-- not sensitive to 'writerTemplate'.
79−metaToJSON' :: (Monad m, ToJSON a)
79+metaToJSON' :: (Functor m, Monad m, ToJSON a)
80 => ([Block] -> m a)
80 => ([Block] -> m a)
81 -> ([Inline] -> m a)
81 -> ([Inline] -> m a)
@@ -99,7 +99,7 @@ addVariablesToJSON opts metadata =
99 where combineMetadata (Object o1) (Object o2) = Object $ H.union o1 o2
99 where combineMetadata (Object o1) (Object o2) = Object $ H.union o1 o2
100 combineMetadata x _ = x
100 combineMetadata x _ = x
102−metaValueToJSON :: (Monad m, ToJSON a)
102+metaValueToJSON :: (Functor m, Monad m, ToJSON a)
103 => ([Block] -> m a)
103 => ([Block] -> m a)
104 -> ([Inline] -> m a)
104 -> ([Inline] -> m a)
105 -> MetaValue
105 -> MetaValue