diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-11-11 21:13:43 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-11-11 21:13:43 -0800 |
| commit | 6094c84b7ae0e00d51c16e7e283ad2e589091bee (patch) | |
| tree | 458200715d1c3c4ef91d8d62548e1b73fff6c0e0 /src/Text/Pandoc | |
| parent | 06ab7230bc3b58a579be557f0167bcdbd82e77ce (diff) | |
| download | pandoc-6094c84b7ae0e00d51c16e7e283ad2e589091bee.tar.gz | |
Functor instance to fix ghc 7.8 warning.
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Lua/Filter.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Lua/Filter.hs b/src/Text/Pandoc/Lua/Filter.hs index 8db31e7fa..687ab2be5 100644 --- a/src/Text/Pandoc/Lua/Filter.hs +++ b/src/Text/Pandoc/Lua/Filter.hs @@ -103,7 +103,7 @@ walkMWithLuaFilter :: LuaFilter -> Pandoc -> Lua Pandoc walkMWithLuaFilter f = walkInlines f >=> walkBlocks f >=> walkMeta f >=> walkPandoc f -mconcatMapM :: Monad m => (a -> m [a]) -> [a] -> m [a] +mconcatMapM :: (Monad m, Functor m) => (a -> m [a]) -> [a] -> m [a] mconcatMapM f = fmap mconcat . mapM f hasOneOf :: LuaFilter -> [String] -> Bool |