diff options
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r-- | src/Text/Pandoc/Lua/Module/Utils.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Lua/Module/Utils.hs b/src/Text/Pandoc/Lua/Module/Utils.hs index 35495dae1..c0d7397ce 100644 --- a/src/Text/Pandoc/Lua/Module/Utils.hs +++ b/src/Text/Pandoc/Lua/Module/Utils.hs @@ -31,7 +31,7 @@ module Text.Pandoc.Lua.Module.Utils import Control.Applicative ((<|>)) import Foreign.Lua (FromLuaStack, Lua, LuaInteger, NumResults) -import Text.Pandoc.Definition (Pandoc, Meta, Block, Inline) +import Text.Pandoc.Definition (Pandoc, Meta, MetaValue, Block, Inline) import Text.Pandoc.Lua.StackInstances () import Text.Pandoc.Lua.Util (OrNil (OrNil), addFunction) @@ -76,12 +76,14 @@ stringify el = return $ case el of InlineElement i -> Shared.stringify i BlockElement b -> Shared.stringify b MetaElement m -> Shared.stringify m + MetaValueElement m -> Shared.stringify m data AstElement = PandocElement Pandoc | MetaElement Meta | BlockElement Block | InlineElement Inline + | MetaValueElement MetaValue deriving (Show) instance FromLuaStack AstElement where @@ -90,6 +92,7 @@ instance FromLuaStack AstElement where <|> (InlineElement <$> Lua.peek idx) <|> (BlockElement <$> Lua.peek idx) <|> (MetaElement <$> Lua.peek idx) + <|> (MetaValueElement <$> Lua.peek idx) case res of Right x -> return x Left _ -> Lua.throwLuaError |