diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-08-13 10:00:46 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-08-13 10:00:46 -0700 |
| commit | 39066eba1d4068f59c150e0516c9c18d86309eed (patch) | |
| tree | 21ad50f9ec8f0174fc9c2a53f038cb045bc4a627 /src | |
| parent | 3d87e2080a27618e70edd1ff2d4160ff959732a6 (diff) | |
| download | pandoc-39066eba1d4068f59c150e0516c9c18d86309eed.tar.gz | |
Added some Functor constraints needed for ghc 7.8.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Writers/Shared.hs | 4 |
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 |