diff options
| author | Albert Krewinkel <albert@zeitkraut.de> | 2021-10-26 14:40:11 +0200 |
|---|---|---|
| committer | Albert Krewinkel <albert@zeitkraut.de> | 2021-10-26 14:40:11 +0200 |
| commit | f56d8706312df64d3956cea0c93768b51192958e (patch) | |
| tree | 974b98342187a9b6db1fac01e9a085dab493e34c /src/Text/Pandoc/Lua/Marshaling/AST.hs | |
| parent | a493c7029cf2bc8490d96fff04b0a0c624987601 (diff) | |
| download | pandoc-f56d8706312df64d3956cea0c93768b51192958e.tar.gz | |
Lua: marshal ListAttributes values as userdata objects
Diffstat (limited to 'src/Text/Pandoc/Lua/Marshaling/AST.hs')
| -rw-r--r-- | src/Text/Pandoc/Lua/Marshaling/AST.hs | 14 |
1 files changed, 2 insertions, 12 deletions
diff --git a/src/Text/Pandoc/Lua/Marshaling/AST.hs b/src/Text/Pandoc/Lua/Marshaling/AST.hs index 22c78bff9..d723fcb4c 100644 --- a/src/Text/Pandoc/Lua/Marshaling/AST.hs +++ b/src/Text/Pandoc/Lua/Marshaling/AST.hs @@ -31,7 +31,6 @@ module Text.Pandoc.Lua.Marshaling.AST , peekInlineFuzzy , peekInlines , peekInlinesFuzzy - , peekListAttributes , peekMeta , peekMetaValue , peekPandoc @@ -63,6 +62,8 @@ import Text.Pandoc.Error (PandocError (PandocLuaError)) import Text.Pandoc.Lua.Util (pushViaConstr') import Text.Pandoc.Lua.Marshaling.Attr (peekAttr, pushAttr) import Text.Pandoc.Lua.Marshaling.List (pushPandocList) +import Text.Pandoc.Lua.Marshaling.ListAttributes + (peekListAttributes, pushListAttributes) import qualified HsLua as Lua import qualified Text.Pandoc.Lua.Util as LuaUtil @@ -794,17 +795,6 @@ peekBlocksFuzzy = choice , (<$!>) pure . peekBlockFuzzy ] -pushListAttributes :: forall e. LuaError e => ListAttributes -> LuaE e () -pushListAttributes (start, style, delimiter) = - pushViaConstr' "ListAttributes" - [ push start, push style, push delimiter ] - -peekListAttributes :: LuaError e => Peeker e ListAttributes -peekListAttributes = retrieving "ListAttributes" . peekTriple - peekIntegral - peekRead - peekRead - -- * Orphan Instances instance Pushable Inline where |