From a8638894ab698cc0e49757a2732e383b652834bc Mon Sep 17 00:00:00 2001
From: Albert Krewinkel <albert@zeitkraut.de>
Date: Wed, 24 Nov 2021 16:41:52 +0100
Subject: Lua: allow single elements as singleton MetaBlocks/MetaInlines

Single elements should always be treated as singleton lists in the Lua
subsystem.
---
 src/Text/Pandoc/Lua/Marshaling/AST.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/Text/Pandoc')

diff --git a/src/Text/Pandoc/Lua/Marshaling/AST.hs b/src/Text/Pandoc/Lua/Marshaling/AST.hs
index 9cf683055..6a0e5d077 100644
--- a/src/Text/Pandoc/Lua/Marshaling/AST.hs
+++ b/src/Text/Pandoc/Lua/Marshaling/AST.hs
@@ -247,6 +247,9 @@ peekMetaValue = retrieving "MetaValue $ " . \idx -> do
       optional (LuaUtil.getTag idx) >>= \case
         Just tag -> peekTagged tag
         Nothing  -> peekUntagged
+    Lua.TypeUserdata -> -- Allow singleton Inline or Block elements
+      (MetaInlines . (:[]) <$!> peekInline idx) <|>
+      (MetaBlocks . (:[]) <$!> peekBlock idx)
     _        -> failPeek "could not get meta value"
 
 typeBlock :: LuaError e => DocumentedType e Block
-- 
cgit v1.2.3