summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2017-08-13 10:00:46 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2017-08-13 10:00:46 -0700
commit39066eba1d4068f59c150e0516c9c18d86309eed (patch)
tree21ad50f9ec8f0174fc9c2a53f038cb045bc4a627
parent3d87e2080a27618e70edd1ff2d4160ff959732a6 (diff)
Added some Functor constraints needed for ghc 7.8.
-rw-r--r--src/Text/Pandoc/Writers/Shared.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/Shared.hs b/src/Text/Pandoc/Writers/Shared.hs
index c6a5fdaf8..8f1a06688 100644
--- a/src/Text/Pandoc/Writers/Shared.hs
+++ b/src/Text/Pandoc/Writers/Shared.hs
@@ -76,7 +76,7 @@ metaToJSON opts blockWriter inlineWriter meta
-- | Like 'metaToJSON', but does not include variables and is
-- not sensitive to 'writerTemplate'.
-metaToJSON' :: (Monad m, ToJSON a)
+metaToJSON' :: (Functor m, Monad m, ToJSON a)
=> ([Block] -> m a)
-> ([Inline] -> m a)
-> Meta
@@ -99,7 +99,7 @@ addVariablesToJSON opts metadata =
where combineMetadata (Object o1) (Object o2) = Object $ H.union o1 o2
combineMetadata x _ = x
-metaValueToJSON :: (Monad m, ToJSON a)
+metaValueToJSON :: (Functor m, Monad m, ToJSON a)
=> ([Block] -> m a)
-> ([Inline] -> m a)
-> MetaValue