aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Lua/Walk.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text/Pandoc/Lua/Walk.hs')
-rw-r--r--src/Text/Pandoc/Lua/Walk.hs48
1 files changed, 48 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Lua/Walk.hs b/src/Text/Pandoc/Lua/Walk.hs
index 7043a383d..695c7b44e 100644
--- a/src/Text/Pandoc/Lua/Walk.hs
+++ b/src/Text/Pandoc/Lua/Walk.hs
@@ -55,6 +55,30 @@ instance Walkable (SingletonsList Inline) Block where
walkM = walkBlockM
query = queryBlock
+instance Walkable (SingletonsList Inline) Row where
+ walkM = walkRowM
+ query = queryRow
+
+instance Walkable (SingletonsList Inline) TableHead where
+ walkM = walkTableHeadM
+ query = queryTableHead
+
+instance Walkable (SingletonsList Inline) TableBody where
+ walkM = walkTableBodyM
+ query = queryTableBody
+
+instance Walkable (SingletonsList Inline) TableFoot where
+ walkM = walkTableFootM
+ query = queryTableFoot
+
+instance Walkable (SingletonsList Inline) Caption where
+ walkM = walkCaptionM
+ query = queryCaption
+
+instance Walkable (SingletonsList Inline) Cell where
+ walkM = walkCellM
+ query = queryCell
+
instance Walkable (SingletonsList Inline) MetaValue where
walkM = walkMetaValueM
query = queryMetaValue
@@ -86,6 +110,30 @@ instance Walkable (SingletonsList Block) Block where
walkM = walkBlockM
query = queryBlock
+instance Walkable (SingletonsList Block) Row where
+ walkM = walkRowM
+ query = queryRow
+
+instance Walkable (SingletonsList Block) TableHead where
+ walkM = walkTableHeadM
+ query = queryTableHead
+
+instance Walkable (SingletonsList Block) TableBody where
+ walkM = walkTableBodyM
+ query = queryTableBody
+
+instance Walkable (SingletonsList Block) TableFoot where
+ walkM = walkTableFootM
+ query = queryTableFoot
+
+instance Walkable (SingletonsList Block) Caption where
+ walkM = walkCaptionM
+ query = queryCaption
+
+instance Walkable (SingletonsList Block) Cell where
+ walkM = walkCellM
+ query = queryCell
+
instance Walkable (SingletonsList Block) MetaValue where
walkM = walkMetaValueM
query = queryMetaValue